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The  purpose  of  this  volume  of  the  Final  heport  is  to  update  rinal 
Technical  Heport  H ADC-TH-b 1  -  372  (Vol.ll),  January  19^82,- (  re  f  e  r  red 
to  below  as  •).  fills  update  consists  primarily  of  listings  of 
revised  assembly  language  code  for  both  NIC  and  CTL;  the  biggest 
change  being  that  it  is  no  longer  necessary  to  down  load  the 
"operational  code"  from  NIC  to  CTL,  since  this  code  has  been 
stored  in  the  CTL  EPROM. 

In  addition  more  descriptive  material  is  included  on  using  the 
NIC  software  with  emphasis  on  its  use  to  control  the  Hamamatsu 
C  1  000  camera  .a. 


As  before: 

CTL  =  N 1  C  -*•  88  /  CT 1. ,  a  GPIP  interface  for  the 
Nicolet  1080  series  of  computers 
NIC  =  the  Mcolet  1080  computer 
C1000  =  the  Hamamatsu  C1000  camera  (or  more 
exactly  that  camera's  controller) 


SECTION  I  Controlling  the  C1000  using  NIC/CTL. 


CTL  presently  contains  software  In  EPROM  which  allows  It  to  run 
in  "automatic"  or  "manual"  mode.  The  automatic  mode  is  used 
mainly  to  test  the  camera,  bus  and  CTL  -  it  can  not  be  used  at 
present  to  usefully  gather  video  data  from  the  C1000.  In  manual 
mode,  the  user  has  full  control  of  the  camera  through  NIC 
software  which  is  referred  to  below  as  MAIN.  As  explained  in  •, 
MAIN  Is  also  used  for  other  functions  such  as  down  loading  CTL 
from  NIC  and  for  examaning  (and  changing)  code  in  CTL. 

ftu.tfiaatl-g.ttflds 

r 
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To  use  the  automatic  mode,  the  CTL  address  switch  6  (see  appendix 
A)  must  be  placed  in  the  "bit  set"  position  while  either  address 
switch  5  or  4  or  both  must  also  be  "set"  (the  other  2  address 
switch  positions  are  immaterial)  the  sixth  switch  1,  numbered,  is 
the  SYC  switch  which  should  always  be  "set". 

If  switch  5  is  set,  the  camera  cursor  first  moves  from  its 
default  x-coordenate  of  512  to  0  and  is  then  stepped  to  x  =  10,’-j 
and  thence  to  0 . 

If  switch  4  is  set,  a  complete  "frame"  of  video  is  gathered  using 
the  default  Interface  value  of  2  (512  p  i  x e  1  s  /  s ca n ) .  The  frame 
starts  at  x=0  if  switch  5  is  set  and  at  512  otherwise. 

The  automatic  mode  may  start  when  CTL  is  first  turned  on 
(assuming  that  the  C1000  controller  is  on).  Usually,  however, 

CTL  will  power  on  in  a  "frozen"  state  where  nothing  can  happen 
before  a  soft  reset  is  done.  (This  happens  because  the  various 
"latches"  in  CTL  go  to  random  states  on  power  on).  Thus  to 
reliably  use  the  auroraatic  mode  a  reset  command  should  be  sent 
from  NIC  to  CTL.  This  can  be  done,  for  example,  by  running  MAIN 
in  "mode  1"  (see  next  section)  or  by  executing  the  OTLRS 
instruction  (octal  4072). 


This  Is  the  normal  mode  of  operation  for  camera  control.  This 
mode  is  possible  whenever  CTL  address  switch  6  is  "off". 


Program  MAIN  should  be  loaded  into  NIC  by  typing  the  console 
command  RUN  NIC  CTL.  MAIN  will  issue  the  query  "MODE?-".  There 
are  three  "modes"  having  to  do  with  camera  control,  modes  1,4  and 

5  . 

nLga.fi..  l 

This  mode  is  used  to  set  the  system  including  camera,  camera 
controller,  CTL  and  MAIN  in  a  known  "initial"  state.  In 
particular  the  camera  parameters  are  givin  their  default  values, 
(see  table  1  ) 

Previslosly  (see  •),  mode  1  was  also  used  to  down-load  the  CTL 
operational  software  from  NIC.  Now,  however,  this  software  is 
resident  in  CTL  EPROM.  It  is  still  possible  to  down  load 
software  in  mode  2,  however. 

Mode  1  should  always  be  invoked  whenever  the  system  is  first 
powered  on  and  whenever  a  system  "hang"  condition  is 
encountered. 

mode  4 

Mode  4  is  used  to  control  the  camera  format  (output/input)  , 
various  camera  parameters  (x-coordinate,  interface,  marker 
on/off)  and  buffer  display.  (Horizontal  resolution  and  external 
anolog  select  are  not  available  on  the  present  camera).  The  mode 
query  for  mode  4  is  "MNEMONIC?-"  to  which  the  user  may  answer 
with  one  of  the  3  letter  mnemonic  codes  given  in  table  1.  The 
current  numerical  value  associated  with  the  mnemonic  (If  any)  is 
displayed  to  which  the  user  may  "reply"  with  CR  if  no  change  in 
value  is  to  be  made,  or  with  the  appropriate  new  numerical  value. 
Note  that  BUE  (buffer  display)  requires  no  data  and  immediately 
activates  the  buffer  display  If  BUF  is  entered. 


MNEMONIC 

MEANING 

D  E F AULT 

VALUE 

PERMISSIPI.E 

VALUES 

M  E  A  N  I  N  G 

NOT  E 

OUT 

Output  Format 

1 

1  ,  ? 

1  =  ASCI  I  data 
i  :binary  d  a  t a 

1 

I  NF 

Input  Format 

1 

1,2,3 

1=  ASCI  I 

2  =  Din  a  r  v 

3  =  "  p  r  i  n  t  " 

XCU 

X-Coord  inate 

5  12 

0-1023 

•i 

IN  T 

1 nterlace 

2 

1,2,4 

1  r  2  b  pixel 
2=512  pixel 
4=1024  p i x e ] 

4 

MAH 

Marker  on/off 

1 

0,  1 

0  =  0  n 

1  =  0  f  f 

p 

bUF 


buffer  L>  i  y  p  1  a  y 


i  .  The  output  format  ta  the  format  (ASCII  or  binary)  of  i  a  t  a 
from  CTL  to  the  camera.  The  default  value  '  1  ah on  Id  n.  ■ 
since  MAIN  sends  all  data  to  the  camera  in  ASCII. 


pa  me d 
o  !;  a  ngt-  d 


2 .  The  input  format  is  the  format  of  (video.)  data  }  a. -.red  fr  m  the 

camera  to  CTL.  ASCII  data  means  that  each  8  b  i  t.  v  i  dee.  v  i  :  u  *.  (.datum) 
is  sent  as  3  ASCII  numbers,  most  s 1 g n i  f  i  ca u t  number  first  ,  with  ASCII 

-apace  following  each  number.  Binary  data  me  .tor  t  h  a  t.  ea  eh  1  1 1  urt  is 
sent  as  a  single  8  hit  binary  integer.  "Print"  is  tee  sa  ..<•  ts  ASCII 
except  that  a  carriage  return,  line  feed  is  sent  ;  n  pi  an.-  Of  every 
16th  space.  INF  (3)  should  never  be  used  since  there  is  n  >  ••no  ugh 
buffer  space  in  CTL  to  receive  data  in  this  •)•>:,.  INF  l  !  •  .  •  t ,  e.  u  1  1  be 
used  only  if  1  NT  (1)  is  also  used.  (This  means  that  t  n  e  '  1 1.  buffer 
will  be  completely  filled  with  1 0  2  4  bytes  (  ?‘;b  pixels  a  *  A  pyt.es  per' 

pixel.)  INF  (  2  )  must  be  used  if  data  is  to  be  stored  on  !u  •.  d  i  s  k  .  0 

the  o  t,  h  e  r  hand,  if  a  scan  line  is  to  be  received  on  the  hi  C  ••soil- 

lcuicope  (or  plotted)  INF  (  1  )  must  be  used. 

•i  .  This  is  the  x-coordinate  of  the  (vertical)  video  scan  line  which 
is  digitized  by  the  camera.  (if  the  marker  is  or,,  it  will  b ►> 

positioned  at.  the  current  x-coordinate.)  Normally,  X  <"  > '  snouid  tie  set 
t.o  zero  before  a  frame  of  video  is  gathered.  It  has  ta  t  r.  f  •  u:ui  by 

experiment  that  t  h  e  x-coordinate  does  not  change  properly  it  ui 
n  -  d  i  g  i  t  (  n  s  T  ,  1 ,  A)  number  was  previously  ent  pp  1  m  d  t  hen  ,  t.  m  -  1  i  v  i  t 

number  (m<n)  is  entered.  For  example,  if  a  vain*'  o  f  X  i  1  ■.'.’•)  i  = 

entered  followed  by  XCO  (COO)  then  tile  final  re:-'  it  j  at;  will  :•>  wren  a , 

T !i  i  s  quirk  r  t  the  c a  me  r  a  can  b e  o  vere c  n e  by  a  1  w  a  v  s  •  ■  r.  t  ..  r  i  r  e  •  d  i  i  t  :■■■ 

of  x-coordinate  values  (e.g.  •:  C;  1 0  is  permissible  f  r  X'.t  .1  . 


a  n  tt 


Table  1 


A  summary  of  mode 


^  .  The  interlace  value  refers  to  the  multiplier  of  256;  thus  the 
default  value  of  2  means  that  each  video  scan  line  consists  of  512 
pixels. 

5.  The  marker  is  a  vertical  cursor  which  appears  on  a  camera  video 
monitor  to  indicate  the  relative  location  of  the  vertical  scan  line 
which  is  digitized. 

6.  The  buffer  display  is  a  vertical  plot  (observable  on  a  camera 
video  monitor)  of  video  intensity  vs.  y-position  for  the  video  scan 
line  currently  being  digitized.  The  buffer  display  appears  whenever 
the  camera  is  reset  (using  mode  1,  for  instance)  and  disappears 
whenever  a  command  (other  than  Blj  P )  is  issued  to  the  camera. 


Table  1-  (continued) 


BQd-£..5. 


Mode  5  1 s  used  to  gather  a  single  line  of  video  or  a  "frame"  of  video 
after  the  camera  has  been  properly  "formatted"  using  mode  4.  The 
video  may  be  displayed  or  stored  (in  packed  form)  for  later 

manipulation. 

The  first  mode  query  is  "FILE  NAME?-"  to  which  the  user  should  reply 
with  an  up-to-six  character  file  name  (not  starting  with  "PHI")  if  the 
video  data  is  to  be  stored  or  with  "PRINT"  (can  be  abbreviated  to 
" P R 1 " )  if  the  data  is  to  be  displayed. 

The  second  mode  query  is  "FRAME?-"  to  which  the  user  should  reply  with 
VII,  VII  or  VID  for  1  line  of  video,  1  "frame"  of  video  -  positive 
increment,  1  "frame"  of  video  -  negative  increment.  For  VII,  a  single 
video  scan  line  is  obtained,  at  the  x-coordinate  value  chosen  under 
mode  3  (or  default  512).  For  VII,  a  frame  of  data  is  gathered, 
starting  at  the  current  x-coordinate  and  ending  at  x  :  1023. 

Simllaraly  for  VID  except  the  ending  x-coordinate  is  0.  In  both  VII 
and  VID  the  size  of  the  step  between  increments  is  controlled  by  the 
value  of  INT;  thus  if  I  N  T  =  4  the  step  size  is  1,  for  INT=2  it  is  2  and 
for  I  NT  =  1  it  is  4. 

Two  forms  of  "print"  (if  FILE  NAME=PRINT)  are  used  depending  on  the 
value  of  INF.  If  INF=1  then  16  numerical  values  per  line  are  printed 
-  each  value  is  separated  by  a  space.  If  1NF:2,  32  hex, (decimal  values 

(00  to  FF)  per  line  are  printed  with  no  spaces.  It  should  be  noted 
that  if  1 N F  =  1  ,  a  print  file  is  always  chosen,  regardless  of  the  value 
given  to  FILE  NAME.  e.i.  ASCII  data  is  never  filed.  Also,  if  the 
value  of  INT  and  INF  is  such  that  CTL  buffer  overflow  will  occur  (see 
mode  4)  a  message  saying  "CHANGE  INT  OH  INF"  is  printed. 

For  details  on  the  form  of  the  packed  video  file,  see  Appendix  P. 

The  status  byte  received  from  CTL  during  serial  poll  is  printed  each 
time  a  video  scan  line  is  to  be  received.  In  "PRINT"  mode  this  byte 
is  printed  on  a  line  above  the  video  data;  in  "file"  mode,  a  maximum 
of  36  status  bytes  per  line  are  printed. 


SECTION  II  -  Peripheral  Commands  for  NIC/CTL 


In  the  previous  section,  modes  I,1*  and  5  were  described  for  use  in 
controlling  the  C1000.  In  this  section,  the  peripheral  "commands"  for 
use  with  CTL  are  described.  These  commands  are  invoked  as  modes 
2, 3, 6, 7  and  8. 

mode  2 

This  mode  may  be  used  to  automatically  down  load  Z-80  code  (command  8) 
from  NIC  to  CTL  and  to  cause  this  code  to  be  executed.  However,  MAIN 
itself  does  not  at  present  include  code  to  execute  the  "command  8" 
corresponding  to  CTL  command  8.  The  two  mode  queries  are  "COMMAND#?-" 
and  "FILE  NAME?-".  The  first  query  is  a  formality  since  only  8  can  be 
entered.  (Previously  two  commands  were  possible.)  The  file  name  is 
the  name  of  the  NIC  file  containing  the  code  to  be  down  loaded  to  CTL, 
(see  note  below)  This  code  may  be  most  conveniently  developed  on  a 
Tektronix  8002  Development  system  and  then  stored  on  the  Comm-Stor  as 
a  WHEX  file.  (see  Mode  3)  This  WHEX  file  is  then  transferred  to  a 
NIC  file  using  Mode  3. 

The  code  is  loaded  starting  at  location  0900H  in  CTL  and  should  have 
entry  point  0900H.  A  total  of  512  bytes  are  loaded. 

The  only  other  restriction  on  the  code  is  that  is  should  return  via  a 
Jump  to  subroutine  HETURN.  (use  JP  1HEH) 

The  NIC  subrountine  corresponding  to  CTL  "COM  8"  must  include  a 
command  table  transfer  followed  by  a  call  to  MONITOR  near  the  beglning 
and  at  least  one  call  to  MONITOR  at  the  end  of  the  command.  (Other 
calls  to  MONITOR  may  be  required  if  data  is  to  be  transferred  from  CTL 
to  NIC.)  See  NIC  "COM  1"  or  "COM  2"  for  examples  of  programs  which 
merely  pass  the  command  table  to  CTL. 

Mode  2  is  normally  used  as  a  temporary  expedient  to  try  out  new  code 
in  the  CTL. 

NOTE  Mode  8  may  be  used  to  easily  modify  Z-80  code  before  it  is 
transferred  to  CTL.  The  code  to  be  modified  must  be  loaded  into  NIC 
"data"  memory  starting  at  octal  100000.  The  modified  code  can  then  be 
transferred  to  CTL  by  using  Mode  2  and  replying  to  "FILE  NAME?-"  with 
a  non-existent  file  name. 

mode  1 

This  mode  is  used  to  transfer  and  store  Z-80  code  from  another  device 
to  NIC.  This  code  can  later  be  down  loaded  into  CTL  using  mode  2,  for 
example.  The  transfer  is  via  the  NIC  serial  input  (RS-?3?)  and 
specifically  requires  that  the  code  be  transferred  in  the  form  of  a 
Tektronix  WHEX  (hexadecimal)  file  (see  •  ,  Appendix  D).  Mode  3  was 
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specifically  designed  to  be  used  with  a  SYKES  Comm-Stor  (communication 
storage  unit  with  floppy  disk  storage) .  It  can  be  used  however  with 
any  computer  (or  possibly  intelligent  terminal)  which  can  output  the 
required  WHEX  file  and  respond  (start  sending)  to  the  command  "  !  8 
file"  where  file  is  the  user  supplied  answer  to  the  query  "KILE 
NAME?-".  It  should  be  noted  that  NIC  requires  8  bit  ASCII  with  the 
eighth  bit  always  1  at  various  baud  rates  from  110  to  1200.  No  other 
protocal  is  required. 

Mis  4 

This  mode  is  used  to  transfer  part  of  CTL  memory  (in  Mocks  of  28b 
bytes)  to  NIC  where  it  can  be  examined  using  mode  7  or  examined  and 
changed  using  mode  8. 

The  mode  query  is  "HEXN-"  to  which  the  user  should  reply  with  the  4 
digit  hexadecimal  starting  address  of  CTL  memory  to  be  examined 
followed  by  a  single  digit  representing  the  number  of  28b  byte  blocks 
to  be  transferred. 

lodg  I 

Displays  NIC  data  mamory  (starting  at  100000)  in  hexadecimal  from  (5 
nibbles/NIC  word)  at  3 2  characters/line.  The  number  of  bytea  (2 
nibble s/ byte)  displayed  is  given  by  the  contents  of  location  NBY  8  (see 
symbol  table  for  SEC  1A )  .  If  mode  3  or  6  is  run  prior  to  mode  7,  NBY5 
contains  the  number  of  bytes  transferred  during  mode  3  or  b  operation. 
(Note  that  during  mode  3  the  CTL  code  is  stored  in  NIC  data  memory 
prior  to  being  filed.) 

msLe  8 

Examine  and  change  "hexadecimal"  data  in  NIC  memory.  This  mode  may  be 
used  to  modify  the  CTL  program  to  be  stored  in  CTL  in  mode  2 
operation.  Note  that  CTL  memory  locations  0nO0-07EK  (  2  0  R  8  bytes)  are 
in  EPROM  and  can  not  be  changed.  (See  Appendix  C  for  the  map  of 
memory  in  both  NIC  and  CTL.) 

The  mode  query  is  0CT-,  to  which  the  user  should  reply  with  the  (up  to 
7  digit)  octal  starting  address  of  NIC  memory  to  be  examined  and 
possibly  changed.  (The  address  given  is  right  justified  zero-fill. 
Thus,  100=0000100.  Usually  the  address  will  be  100000  plus.) 

The  contents  of  memory  at  this  location  is  then  displayed  as  8 
hexadecimal  digits  (5  nibbles  in  each  word).  The  user  may  respond 
with 

(a)  space  (actually  any  sequence  of  1  to  U  characters)  followed  by  CR. 

(b)  5  characters  followed  by  CR. 


(c)  CR  with  no  preceding  character. 

If  (a),  then  the  next  word  is  displayed  with  no  change  to  the  current 

wo  rd  . 

If  (b) ,  the  current  word  is  changed  to  the  value  given  and  the  next 
word  is  displayed.  (If  the  value  is  not  hexadecimal,  then  the  changed 
wo  rd  is  nonsense.  ) 

If  (c),  then  the  mode  is  exited  with  no  change  to  the  current,  word. 


SECTION  111  Miscellaneous  Operating  Notes. 

There  are  various  "escapes"  in  MAIN  which  may  be  used  to  change  the 

flow  of  program  execution.  These  are  listed  and  discussed  below. 

CONTROL-Q:  If  control-Q  is  typed  at  any  time  that  MAIN  is  waiting  for 
input  from  the  user  e.g.  while  waiting  for  a  reply  to  a 
mode  query,  a  jump  is  made  to  NICBUG.  The  user  can  then 
examine  memory  or  jump  to  the  NIC  operating  system 
(monitor)  by  typing  7b00G.  A  return  to  MAIN  can  pe  made 
from  NICBUG  by  typing  71G. 

CONTROL-G:  Similar  to  control-0  except  a  jump  is  made  to  the  start  of 
MAIN  which  will  cause  MODE?-  to  be  typed.  This  is  a 
convenient  excape  from  a  mis-typed  input  (Note  that 
rubout  does  not  work  in  MAIN.) 

CONTROL-Z :  Must  be  typed  to  excape  from  the  "no  find"  condition  in 

mode  3.  The  end-of-file  character  which  mode  3  expects 
is  control-Z,  If  this  character  is  never  3ent  (e.g.  if 
the  file  does  not  exist  in  the  sending  device),  it  must 
be  provided  by  the  user. 


Any  c  bar ac  ter :  If  a  "hung"  condition  is  encountered,  it  is  usually 
possible  to  escape  by  typing  any  character.  This 
condition  usually  occurs  either  when  NIC  is  trying  to 
communicate  with  CTL  or  CTL  is  trying  to  communicate  with 
the  bus  (e.g.,  the  C1000).  In  the  former  case,  a  Jump  to 
NICBUG  is  made;  in  the  latter  case,  the  state  of  CTL  is 
printed  out  (see  Table  2 )  and  a  jump  is  made  to  NICBUG. 

In  either  case  the  user  should  try  to  determine  the  cause 
of  the  hung  condition  before  continuing.  Frequently,  all 
that  is  necessary  is  to  return  to  MAIN  (use  7'G)  and  use 
mode  1  to  reset. 


ROW  1  ( CTL  Command  Table)  ROW  2  (CTL  Registers) 

Identifier  Value  Identifier  Value 


Code 

~ 

Name 

Code 

*  Name 

0 

= 

COMM 

L  = 

L  REGISTER 

1 

- 

NLIST 

H  = 

H  REGISTER 

2 

z 

LI  S  1  P 

PC  = 

PROGRAM  COUNTER 

3 

z 

LIS  IS 

SP  = 

STACK  POINTER 

4 

z 

LIS2P 

A  = 

A  REGISTER 

5 

z 

L1S2S 

C  = 

C  REGISTER 

6 

z 

LI  S3  P 

B  = 

H  hEGISTER 

7 

z 

LIS  3S 

E  = 

E  REGISTER 

8 

z 

TALKP 

D  = 

D  REGISTER 

9 

z 

TALKS 

0  = 

8291  INTI 

A 

z 

EO  SC 

1  — 

8291  INT2 

B 

z 

N  D  AT 

2  r 

829  1  ADRST 

C 

z 

NDATB 

3  = 

8291  ADROI 

D 

z 

DATADD 

(  LO  ) 

4  ; 

829  1  EOS  R 

E 

z 

DATADD 

(  HI  ) 

5  = 

8292  INTST 

F 

z 

DUM  1L 

6  = 

8292  ERROR  FLAG 

0 

z 

DUM  1  H 

7  = 

829 2  CONTROLLER  STATUS 

1 

z 

MESS 

8  = 

8292  BUS  STATUS 

2 

- 

ST  ATI 

3 

= 

STAT2 

4 

= 

RETADD 

(  LO  ) 

5 

RETADD 

(  HI  ) 

6 

= 

LCOMM 

7 

r 

M  A  X  B  LK 

8 

s 

STACK  P 

(  LO  ) 

9 

r 

STACKP 

(  HI  ) 

A 

= 

COUNT 

{  LO  ) 

b 

= 

COUNT 

(  HI  ) 

Table  2  -  CTL  State  Data  Returned  on  Interrupt 


CTL  Software 


The  original  CTL  software  as  outlined  in  •  and  listed  there  has 
been  modified.  The  major  modification  is  the  inclusion  of  the 
ability  to  interrupt  program  execution  and  relocation  of  the 
program  to  origin  0.  This  allows  the  program  to  be  put  in  LPROM 
so  it  does  not  have  to  be  down  loaded  from  NIC.  Other  changes 
were  made.  For  example,  no  check  is  made  of  the  SYC  switch  to 
determine  if  CTL  is  the  controller  in  charge  of  the  bus. 

The  CTL  software  (now  actually  "firmware")  is  refered  to  below  as 
CTLF1  (CTL  firmware  1).  It  consists  of  the  following  components: 

(1)  An  initialization  routine  which  sets  various  registers  in  the 
82  9 1  - se  t  and  causes  the  liC  (interface  clear)  nessaere  to  be  sent 
on  the  bus.  (Assuming  SYC  is  set.)  The  routine  is  always  run 
whenever  a  software  reset  is  done  (CTLRS)  and  on  power  on 
(provided  hardware  latches  permit  it). 

(  2  )  An  "automatic"  test  module  which  is  invoked  if  address  switch 
0  is  "on".  This  module  is  invoked  under  the  same  conditions  as 
the  initialization  routine. 

(3)  An  Interrupt  driven  routine  which  transfers  CTL  state  data  to 
locations  starting  at  the  end  of  the  command  table.  (The  command 
table  presently  starts  at  the  bottom  of  RAM  at  800H.)  This 
routine  starts  at  38H.  Interrupt  mode  1  is  enabled  so  that 
whenever  an  Interrupt  occurs,  this  routine  is  activated.  Note 
that  a  NIC  C'll.WR  instruction  will  cause  a  Z -t>0  interrupt  it 
interrupts  are  enabled.  Interrupts  are  disabled  whenever  data  is 
being  transferred  from  NIC  to  CTL. 

(4)  6  "command"  routines.  These  command  routines  are  labeled  COM 
1,  COM  2,  COM  4,  COM  5,  COM  6,  and  COM  7.  A  seventh  "command" 

(COM  3l  may  be  loaded  and  run  at  900H . 

These  commands  are  table  driven,  i.e.  a  20  byte  table  containing 
the  number  of  the  command  to  be  executed  and  command  parameters  is 
transferred  from  NIC  to  CTL  prior  to  command  execution.  Three  of 
the  commands  (COM  1,  COM  2,  COM  4)  transfer  data  to  or  from  the 
bus  while  two  of  the  commands  (COM  5,  COM  b)  transfer  data  to  or 
from  NIC.  COM  7  is  used  to  transfer  data  directly  from  the  bus  to 
NIC.  A  brief  description  of  these  "commands"  arid  the  required 
parameters  follow: 


These  commands  always  exit  with  the  A T N  message  inactive  so  that 
as  long  as  a  bus  command  is  not  being  executed,  the  bus  is  in  an 

"idle"  state . 
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Vgiiv; 


COM  1  (NLIST,  LIS1P,  LI  SIS,  LIS2P,  LISPS,  L I S  3  P ,  L I S  3  S ,  NDAT, 

NDATB ,  DATADD) 

This  command  causes  data  stored  in  the  CTL  "buffer"  starting  at 
location  DATADD  (2  bytes)  to  be  transmitted  on  the  bus  to  NLIST 
listeners  (up  to  3)  identified  by  their  pr  ima r y / s econd a ry  address 
( LIS  IP / LIS  IS ,  etc.).  The  number  of  bytes  transferred  is 
determined  by  NDAT  and/or  NDATB  as  follows: 

(a)  if  NDAT  and  NDATB  are  both  zero  no  data  is  sent. 

Listener  addresses  are  sent  however  provided  NLIST  /  0  . 

(b)  if  NDAT  i  0,  NDAT  bytes  are  sent  (0  <  NDAT  <  255) 

(c)  if  NDAT  =  0  and  NDATB  i  0  then  NDATB  256-byte  blocks 
are  sent  where  0  <  NDATB  <_  *4  since  up  to  102M  bytes  may 
be  stored  in  the  CTL  buffer.  The  last  byte  transferred 
is  accompanied  by  the  END  message.  (£01  active.) 

The  NLIST  device  addresses  (pairs)  are  sent  prior  to  sending  (he 
data.  If  a  secondary  address  is  0,  it  is  not  sent. 

The  universal  unlisten  message  (UNL)  is  sent  after  all  the  data 
has  been  transmitted. 

COM  2  (TALKP,  TALKS,  EOSC,  NDAT,  NDATB,  DATADD) 

This  command  transfers  data  from  the  bus  to  the  CTL  "buffer" 
starting  a  DATADD.  The  amount  of  data  transferred  depends  on  the 
values  of  EOSC,  NDAT  and  NDATB.  The  rules  are  as  follows: 

(a)  If  an  END  is  received  with  the  nth  byte  and  n  is  less  than  or 
equal  to  the  amount  of  data  "expected"  (see  below),  then  n  bytes 
are  transferred. 

(b)  Similarly,  if  EOSC  is  not  zero  and  a  character  is  received 
which  matches  EOSC,  n  bytes  are  transferred. 

(c)  The  "expected"  amount  of  data  is  given  by  NDAT  and  NDATB  as 
for  COM  1  1 .e.  if  NDAT  i  0,  then  the  expected  number  is  NDAT  while 
if  NDAT  =  0  and  NDATB  i  0,  NDATB  256  byte  blocks  of  data  are 
expected . 

(d)  If  END  is  not  received  (or  EOSC  /  0  and  no  match  character  Is 
received),  the  "expected"  amount  of  data  is  transferred. 

(e)  If  NDAT  s  NDATB  =  0  the  "expected"  amount  of  data  is 
considered  to  be  unknown.  In  this  case  the  number  of  bytes 
transferred  Is  given  by  the  above  rules  except  that  NDATB  is 
assigned  an  implicit  value  of  k  (the  maximum  number  of  blocks 
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which  can  be  contained  in  the  CTL  buffer).  In  addition,  if  END 
(or  matching  EOSC  )  is  recevied,  the  amount  of  data  received  ia 
"returned"  in  N  D  A  T  B  and  the  first  byte  of  DAT ADD:  (NDATH  contains 
the  least  significant  byte  of  the  2  byte  value  returned). 

Before  the  data  is  gathered  from  the  bus,  the  talker  address  given 
by  TALKP/TALKS  is  transmitted  to  the  bus.  If  TALKS  =  0,  no 
secondary  talk  address  is  transmitted. 

After  data  has  been  gathered,  the  universal  untalk  message  (U  b  T  ) 
is  t  r  an  sin  i  1 1  ed  to  the  bus. 

COM  4  (L1S1P,  LIS  IS ) 

This  command  responds  to  a  request  for  service,  polls  (serial 
poll)  the  device  with  address  LIS1P/LIS1S  (LI. SIS  =  0  means  no 
secondary  address)  and  returns  the  serial  poll  "status  byte"  to 
NIC.  (The  "status  byte"  consists  of  the  uniline  message,  R  (J  S  ,  on 
data  line  7  and  STB  on  data  lines  1-6  and  8.  If  the  RQS  message 
is  true,  the  addressed  device  is  requesting  service;  otherwise  it 
is  not.  Status  Information  may  or  may  not  be  passed  in  the 
multi-line  STB  message.  The  C1000  passes  no  status  information.) 

It  in  noteworthy  that  the  C1000  never  reouestr  service  if  t T N  ir 
inactive.  Thus  the  first  action  in  COM  4  is  to  activate  A T N  using 
the  TCNTR  command  to  the  8292.  (This  may  cause  problems  with 
other  devices.) 

After  the  SHQ  message  is  received  by  COM  4,  the  serial  poll 
enable,  SPE,  message  is  sent  followed  by  the  address  of  the  device 
to  be  polled.  Next  CTL  goes  to  stand  by  to  receive  the  "status 
byte"  and  return  it  to  NIC  provided  CTL  is  not  in  the  "automatic" 

( test )  mode . 

Next  the  universal  untalk  message  (\!NT)  is  sent  followed  by  the 
serial  poll  disable  message  (SPD). 

COM  7  (TALKP,  TALKS) 

This  command  passes  each  datum  from  the  bus  directly  to  NIC 
without  using  the  CTL  buffer.  Thus,  in  a  sense  it  is  a 
combination  of  COM  2  and  COM  6.  Like  COMM  2  it  addresses  the 
talker  using  TALKP  and  TALKS.  Using  COM  7  it  is  possible  to 
receive  "files"  of  data  longer  than  1024  bytes. 

COM  7  ends  reception  when  the  END  message  is  received  (EOl  is 
asserted)  with  the  last  datum.  When  this  happens  the  SRVC  bit  in 
the  CTRLO  port  is  set  such  that  the  NIC  instruction  CTLRD  of 
CTLRDC  will  "see"  the  8th  bit  of  ACC  set  to  1.  It  is  reset  before 
COM  7  returns . 


COM  5  ( N  DAT ,  NDATB ,  DATADD) 

This  command  transfers  data  stored  in  CTL  starting  at  DATADD  to 
NIC.  The  use  of  NDAT  and  NDATB  are  as  for  COM  1. 

COM  6  (NDAT,  NDATB,  DATADD) 

This  is  the  inverse  of  COM  5  i.e.,  data  is  transferred  from  NIC  to 
CTL  "buffer". 


Software  Maintenance 


In  this  section  some  miscellaneous  information  concerning 
software  maintenance  for  both  CTL  and  NIC  is  presented. 


All  NIC  software  was  written  in  Nicolet  As  semi  L  y  Language  using 
the  Disk  Editor  (DISKED),  and  assembled  using  the  Nicolet  Disk 
Assembler  (ASM),  (see  Appendix  E).  The  source  program  MAIN  is 
written  in  6  segments  which  should  be  individually  assembled. 

Any  given  segment  is  completely  within  a  page  (pages  are  1 0 1? h 
words  long  starting  at  address  0),  but  there  may  be  more  than  one 
segment  per  page  (see  Appendix  C).  Entry  points  external  tr  > 
given  segment  are  always  given  at  the  end  of  the  segment  (in  a 
list  of  externals)  where  they  are  relatively  easily  accessible 
for  change.  It  is  important  to  make  note  of  values  assigned  to 
these  entry  points  so  that  software  changes  in  one  segment 
causing  a  change  of  entry  point  address  will  be  ehaneed  in  the 
list  of  externals  of  other  segments. 

The  first  segment  (now  called  SEGIA  )  but  latter  versions  may  have 
a  different  suffix  letter)  is  partitioned  into  3  sub-segments 
called  SEGIA  1  ,  S  EG  1 A  2 ,  SEGIA3  f or  ease  of  transfer  to  backup 
disks.  (A  maximum  of  k  complete  tracks  can  be  stored  in  data 
memory.)  Before  assembly  these  sub-segments  should  be  combined 
into  one  segment  U3lng  the  DISKED  K  command. 

The  source  software  is  also  stored  on  floppy  disk  (in  the  Sykes 
Comm-Stor)  using  the  DISKED  L  command  on  the  complete  source 
program.  (All  segments  are  combined  using  DISKED  and  the  command 
K,  N I  CP ,  SEGIA,  SEG2A  ,  SEG3  ,  SEGH,  SEG5  ,  SEG6.) 

Assuming  that  NICP  has  been  created  and  DISKED  has  been  invoked, 
the  file  can  be  transferred  using  the  Comm-Stor  command 
I K»NICP#L»N1CP. 

I  s  Comm-Stor  prompt. 

H  =  Head  and  store  from  modem  port. 

NICP  =  Name  to  be  assigned  to  the  file  (the  name  does  not  have 
to  be  the  same  as  that  being  transferred.) 

#  =  Separator  for  a  command  to  be  sent  out  of  the  modem  port 
prior  to  data  reception. 

L  NICP  is  the  DISKED  command  "list  file  NICP". 

In  order  to  transfer  this  program  back  to  NIC,  a  NIC  program 


called  COMNIC  la  available  (see  Appendix  D).  If  COMNIC  is  not 
available  in  "run"  form  it  should  be  assembled  usin^  ASM  and 
overlayed  on  program  MAIN  since  COMNIC  uses  several  subroutines 
in  MAIN.  Assume  MAIN  has  been  loaded,  simply  use  RUN  L0< JEH 
followed  by  COMNIC:G. 

COMNIC  transmits  a  send  command  to  Comm-Stor  in  the  form 
!  Ski  fi  le- name  where  file-name  is  given  by  the  user  in  response  to 
the  query  " KILE  NAME?-.  If  the  file  exists  in  Comm-Stor,  it  will 
be  transferred  to  NIC  and  stored  under  file-name:A.  This  now 
file  will  then  be  essentially  identical  to  the1  one  originally 
transferred  from  NIC  and  may  be  edited  using  DISKED. 


The  CTL  software  was  written  on  a  Tektronix  8002A  Mi cro-F rc'easor 
Lab  using  the  resident  editor  with  Zilog  mnemonics  and  assembled 
using  the  resident  assembler  (see  Appendix  K).  The  source 
program  is  stored  in  6  segments,  partly  for  logical  reasons  and 
partly  so  that  any  given  segment  will  fit  into  the  300  line 
buffer  of  the  editor.  The  segments  are  as  follows: 

CTLSYM1  -  The  list  of  equates. 

TTLMAC1  -  Macro  definitions. 

CTLMAIN1  -  Main  control  routine  and  ancillary  routines. 

TTLSUBS  1  -  All  command  subroutines  except  CO Ml. 

TTLSUB01  -  Command  subroutine  COM!  and  the  automatic  TEST 
routine  along  with  its  BCD  to  ASCII  routine. 

CTL.ST0R  -  Parameter  table  and  other  RAM  storage  definitions. 

These  source  subroutines  are  stored  on  floppy  disk  with  back  up 

disks. 

The  machine  code  can  be  transferred  to  CT1  in  two  ways.  trie 
method  is  via  Tektronix  WHKX  files  as  deseribtd  under  modi-  3  in 
Section  II.  This  method  is  used  for  code  that  is  to  be  d  wn 
loaded  into  CTL  RAM.  The  other  method  is  to  transfer  the  c  ■  te 
into  EPROM  as  described  below. 

The  PROM  burner  used  at  PML  is  on  a  CP-'M  based  system.  I  n  u  it 
is  necessary  to  transfer  machine  code  1  rum  t  nr  non.  A  to  ,1  liif  in 
the  CP/M  based  system.  This  Is  ,1  o  «_■  om  p  1  i  s  h  <  1  using  the  R  .  > 1 1 . '  A  COMM 
command  (3ee  Tektronix  800 1/dOOp  System  User'.-  Newsletter  -  Issue 
#11,  Spring  1900)  to  send  the  file  and  program  1  h  K  i<  EC  (listed  in 
Appendix  G)  to  receive  the  file.  Modem  pirt  (  d  ' ''  1  )  is  u.  •  )  with 


COMM 


see  figure  l  for  the  appropriate  cabling  diagram. 


MSL2. 

CLl  M 

PIN# 

FUNCTION 

CODE 

FUNCTION 

CODE 

2 

Transmitted  Data 

TX  D 

- - 

Received  Data 

RX  I) 

3 

Received  Data 

RXD 

- *3 - 

Transmitted  Data 

TXD 

5 

Clear  to  send  * 

CTS 

— - 

Request  to  Send 

RTS 

7 

Signal  ground 

GND 

— — 

Signal  Ground 

GND 

8 

Signal  Detect 

DCD 

- <e - 

Data  Terminal  Ready 

DTR 

*  A  jumper  on  the  Communication  board  may  be  changed  to  use  PIN  6. 
Notes 

(1)  CTS  must  be  on  bo  Tore  the  start  of'  data  transmission  t  before 
COMM  is  called).  It  may  be  set  off  during  transmission  to 
halt  transmission. 

(2)  DCD  must  be  on  before  and  during  data  t.  ransm  i  ns  i  on  . 

(3)  PIN  4  is  the  8002  RTS  line  which  is  always  ON.  It.  may  b* 
used  by  the  CP/M  system  if  necessary. 

Figure  1  -  hS-232  Cabling  Diagram  for  communications  with  the 
Tektronix  8002A  J101  Modem  Port.. 


The  file  transfer  is  initiated  by  first  loading  the  assembled 
code  to  be  transferred  using  the  command  LOAD  "file",  where 
"file"  is  the  name  of  the  file  to  be  loaded.  (Optionally,  the 
memory  area  to  be  loaded  can  first  be  filled  with  hex  FF  so  that 
areas  of  memory  which  will  not  contain  code  will  contain  FF.  Use 
FILL  start- address  end-address  FF.  ) 

Next  use  the  COMM  command: 

COMM  P  =  0 A . 

This  is  followed  with  a  request  for  a  Formatted  Upload  by  typing: 
NULL  start-address  end-address  CR 
(NULL  is  SHIFT/CONTROL  @) 


i 


► 


» 
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APPENDIX  A  -  Address  Switch  Description 


The  address  switch  chip  contains  six  single  pole,  double  t hrow 
switches.  These  switches  are  numbered  (left  to  right)  from  1  to 
6.  (Note  switch  1  corresponds  to  "logical"  switch  0.) 

Switch  1  is  the  SYC  switch  which  may  be  used  to  initialize  CTL  as 
the  system  controller  in  charge  of  the  bu3.  Normally  (with  the 
present  software)  this  switch  should  be  in  the  "set"  position  or 
"off"  as  marked  on  the  switch.  (Set  means  that  SYC  is  active. ) 

Sw  itches  2-6  can  be  used  to  set  the  primary  address  of  the  CTL, 
switch  6  corresponds  to  the  least  significant  bit  of  the  6  bit 
address  etc.  A  switch  in  the  off  position  means  that  the 
cor r es pond  i  ng  bit  is  set  (to  1). 

With  the  current  software,  the  CTL  can  not  be  addressed  as  i 
t  a  1  ke  r  /  1  i  s  t  ener  since  it  controls  what  device.-'  are  tc  tall-  and/or 
listen  -  CTL  knows  it  is  a  listener  if  another  device  is  asked  to 
talk.  Thus  the  address  switches  are  not  used  as  such,  but  are 
instead  used  to  deternime  "automatic"  or  "manual"  mode  of 
operation  of  CTL  as  described  in  Section  I.  Again,  a  bit  is 
"set"  by  putting  the  corresponding  switch  in  the  "off"  position. 
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Video  Data  tiles 


Each  pixel  in  a  video  frame  (one  or  more  scan  lines  of  video)  is 
an  8  bit  byte  representing  a  relative  intensity  value  from  0  to 
255.  These  bytes  are  packed  2.5  bytes  per  NIC  20  bit  word.  NIC 
data  memory  (starting  at  100000)  is  used  as  a  buffer  to  hold  4 
tracks  worth  of  data  before  it  is  written  to  the  disk.  These  4 
tracks  hold  6144  words  or  15  3 60  bytes  of  video  data.  This 
corresponds  to  15,  30  and  60  scan  lines  at  1NT  values  4,  2,  1 
respectively.  When  unpacking  the  data  for  display  (or  other) 
purposes  it  is  necessary  to  know  the  number  of  scan  lines,  n,  and 
the  value  of  INT  which  was  used.  This  infromation  (and  more)  is 
containing  in  the  file  directory  as  follows: 

Directory  Word  I_n t e r d re ta t_i on 

Core  buffer  address  Starting  x-coordinate  (binary  form) 

Kile  size  (words)  File  size  (words),  (note  1,2) 

Program  starting  address  (PSA)  n  and  INT,  (note  3) 

The  file  starting  track  number  is,  of  course,  also  included  in 
the  d i rec  tory . 

Note  1  -  The  last  track  will  seldom  be  completely  filled  with 

video  data. 

Note  2  -  The  file  size  is  actually  the  number  of  tracks  times 
1  536  (  3000  octa  1)  . 

Note  3  -  The  interlace  number  (1,  2  or  4)  is  stored  in  bits  11-14 
of  the  PSA  and  the  number  of  lines,  n,  in  bits  0-10. 


Error  and  other  Subroutines 

Externals,  Definitions  and  Command 

Disk  I/o  Routines 

Externals  and  Switch  Storage 

Packing  Routines,  etc. 

External  Reference 

Tekhex  "Routines" 

Externals,  definition  and  scratch  storage 


Locations  100000  -  117777  are  used  for  data  storage.  Nute  that 
the  Nicolet  computer  has  a  70000  (octal)  gap  between  "program 
memory"  and  "data  memory". 


Hex 

Addresses 

0 

k 

38 

I 

I 

CTLMAIN1  7  F 
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bF 

CO 

I 

1  6F 
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C-IL-Hsasry.  Map 


Intialization 


Interrupt  Houtine 


Command  Calls,  etc. 


Miscellaneous  Routines 


All  Command  Subroutines  Except  C0M1 


COM  1  and  TEST 


Unused 


Command  Table 


Miscellaneous  Data 


Temporary  State  Storage  on  interrupt 
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/  CAMKHA  MAIN  (NOVEMBER  6,1981) 

//  CAMERA  MAIN  (NOVEMBER  6,1981) 

//  MAIN  DRIVER  PROGRAM  FOR  CAMERA  CONTROL.  TH I >  PROGRAM  PERFORMS 
/  VARIOUS  BASIC  OPERATIONS  HAVING  TO  DO  WITH  CONTROI1ING  THE 
/  HAMAMATSU  CIOOO  CAMERA  VIA  THE  NIC-'l88/CTL  INTERFACE. 

/  IN  ADDITION  VARIOUS  CONTROLLER  FUNCTIONS  ARE  PERFORMED.  EACH  FUNCTION 
/  IS  CALLED  A  MODE  (OF  OPERATION).  AT  PRESENT  7  MODES  HAVE  BEEN 
/  IMPLEMENTED  AS  FOLLOWS: 

/ 

/  MODE1  -  RESET  THE  CAMERA , CONTROIL  ER  (NO  LONGER  HAVE  TO  Barr  LOAD) 

/  THIS  OPERATION  SHOULD  USUALLY  RE  THE  FIRST  OPERATION  ON  SYSTEM 
/  START  AND  MAY  BE  REPEATED  ANY  TIME  THE  USER  WISHES  TO 
/  IN  RAM  WHICH  MUST  BE  RELOADED  EACH  TIME  THE  CTL  IS  TURNED  OFF.) 

/ 

/  MO DEB  -  LOAD  AND  EXECUTE  SPECIAL  "COMMANDS".  AT  PRESENT  THE 
/  CTL  RECOGNIZES  ONE  OPTIONAL  COMMAND  (NO.  8).  THIS 
/  COMMAND  IS  NOT  PART  OE  THE  MAIN  SEQUENCE  OF  CTL  PROGRAMS  AN!) 

/  MUST  BE  LOADED  BEFORE  CALLING.  AT  PRESENT,  IT  IS  ASSUMED  THAT  THE 
/  CORRESPONDING  NIC  COMMAND  PROGRAM  IS  IN  NIC  CORE.  THE  MODE  QUERY  I S- 
/  COMMAND  //?-  (  REPLY  8) 

/  FILE  NAME?-  (REPLY  WITH  THE  NIC  FILE  To  BE  LOADED) 

/  [OPTIONAL  SPECIAL  DATA,  DEPENDING  ON  THE  COMMAND] 

/ 

/  MODE3  -  TRANSFER  AND  TRANSFORM  A  TEKTRONIX  ROD?  TEK-HEX 
/  FILE  FROM  COMM-STOR  TO  A  NIC  LOAD  FILE.  THIS  MODE  PROVIDES  FOR 
/  EASY  TRANSFER  OF  ASSEMBLED  Z-80  CODE  TO  NTC  AND  THENCE  TO  CTL. 

/  THE  MODE  QUERY  IS  - 

/  FILE  NAME?-  (RESPOND  WITH  THE  COMM-STOR  FILE  NAME  WHICH 

/  ALSO  BECOMES  THF.  NIC  FILE  NAME) 

/  NOTE-  IF  THE  FILE  DOES  NOT  EXIST  IN  COMMSTOR,  THE  USER  Will. 

/  BE  INFORMED  OF  TUTS.  HE  MUST  THEN  TYPE  ~Z  TO  O.-.T  PROGRAM  CONTROL. 

/ 

/  MODEM  -  CAMERA  SET-UP.  USING  THIS  MODE,  ANY  )K  •>  LEGITIMATE 
/  CAMERA  SET-UP  COMMANDS  GIVEN  IN  CAMERA  TABLE  ARE  SENT  TO  THE  CAMERA. 

/  THE  MODE  QUERY  IS  - 

/  MNEMONIC?-  (REPl.Y  WITH  ONE  OF  THE  8  LETTER  MNEMONIC 

/  CODES:  OUT  INK  XCO  INT  MAR 

/  THE  CURRENT  VALUE  IS  THEN  PRINTED  AEiER  WHICH  'ME  USER  MAY  TYPE 
/  IN  A  NEW  VALUE  OR  CR  TO  RETAIN  THE  GIVEN  ONE. 

/  NOTE  THAT  AT  PRESENT  THE  USER  SHOULD  HOT  CHANGE  OUT  WHTII  GIVES 
/  THE  FORMAT  OE  DATA  SENT  TO  THE  CAMERA.  IT  SHOULD  STAY  AT 
/  ITS  DEFAULT  VALUE  OE  1  MEANING  ASCII  DATA. 

/ 

/  MODES  -  OUT  AIN  A  "FRAME"  OE  VIDEO  DATA  (THE  Si/E  OF  A  FRAME  DEPENDS 
/  ON  THE  CAMERA  TABLE  VALUES  FOR  XCO  AND  INT  AND  ON  THE  COMMAND). 

/  THE  MODE  QUERY  IS  - 
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/  FILE  NAME?-  (REPLY  WITH  THE  NAME  OF  THE  NIC  FILE  TO  RECEIVE 

/  THE  DATA  OH  WITH  "PRINT”  WHICH  WILL  CAUSE  THE  DATA  TO  BE 

/  PRINTED  BUT  NOT  STORED.  IF  "PRINT"  IS  GIVEN,  THE  ACTUAL  FORM 

/  OF  THE  PRINTED  VIDEO  DEPENDS  ON  THE  INPUT  FORMAT  (INF).  IF  1  OR  3, 

/  THE  DISPLAY  IS  3  CHARACTER  (000-256  )  FOLLOWED  BY  "BLANK",  16 

/  PIXELS/LINE.  IF  2,  THE  DISPLAY  IS  2  CHARACTER  HEX  (OO-FF)  WITH 

/  NO  BLANKS  AND  32  PIXELS/LINE.) 

/  FRAME?-  (REPLY  WITH  VII, VII, VII)  FOR  1 -L  T  N  E  VIDEO,  A  FRAME 

/  STARTING  AT  X-COORD  GOING  TO  HIGHER  X-VALl/ES,  A  FRAME 


/  CAMERA  MAIN  (NOVEMBER  6,1981) 

/  STARTING  AT  X-COORD  GOING  TO  LOWER  X -VALUES  RESPECTIVELY. 

/ 

/  M0DE6  -  TRANSFER  CTL  MEMORY  TO  NIC  AT  100000  IN  PACKED  FORM. 

/THE  MODE  QUERY  IS  - 

/  HEXN-  (REPLY  WITH  4  HEX  DIGIT  ADDRESS  AND  A  SINGLE  DIGIT 

/  SPECIFYING  THE  NO.  OF  256  BYTE  BLOCKS  WANTED. 

/  E.G.  00)0  4  MEANS  ADDRESS  COO  AND  4  BLOCKS) 

/  THE  DATA  OBTAINED  MAY  BE  DISPLAYED  BY  CALLING  MODE? 

/ 

/M0DE7  -  DISPLAY  MEMORY  IN  HEX  FORMAT.  THE  REGION  DDISPLAYED  STARTS 
/  AT  1  00000  AND  IS  NW 3  WORDS  LONG  WHERE  NW3  IS  OBTAINED  BY  RUNNING  M0DE3 
/  OR  M0DE6.  THE  USER  CAN  ALSO  CHANGE  NK3  HOWEVER. 

/  THE  WORDS  ARE  ASSUMED  TO  BE  IN  PACKED  FORM. 

/ 

/M0DF8  -  DISPLAY  NIC  WORDS  IN  HEX  AND  PERMIT  THE  USER  TO  CHANGE  THE 
/  DISPLAYED  WORD  (ALSO  IN  HEX).  THIS  MODE  CAN  BE  USED  TO  PUT  PROGRAM 
/  PATCHES  INTO  CTL. 

/  THE  MODE  QUERY  IS  - 

/  OCT  -  (  REPLY  WITH  THE  STARTING  ADDRESS  (OCTAL)  OF  NIC 

/  MEMORY  TO  BE  OBSERVED  AND/OR  CHANGED  ) 

/  THE  PROGRAM  THEN  DISPLAYS  THE  FIRST  WORD  AS  5  HEX  DIGITS  AND 

/  WAITS  FOR  USER  RESPONSE.  A  SPACE  (OR  ANY  SEQUENCE  OK  1  TO  4 

/  CHARACTERS)  THEN  CR  WILL  CAUSE  NO  CHANGE. 

/  IF  5  HEX  CHARACTERS  ARF.  ENTERED  THEY  WILL  REPLACE  THE  DISPLAYED 

/  WORD.  THE  NEXT  WORD  WILL  THEN  BE  DISPLAYED,  ETC.  TO  EXIT  THIS 

/  MODE  REPLY  WITH  CR  ONLY.  THE  CHANGED  CODE  CAN  BE 

/  LOADED  INTO  CTL  MEMORY  VIA  MODE  1  WITH  A  NON-EX  I STANT  FILE 

/  NAME. 

/ 

/ 

/  THE  USER  MAY  EXIT  CTLSYS  VIA  NTCBIIG  TO  NICSYS  AND  STORE  THIS  PROGRAM 
/  DATA  FOR  LATER  USE.  USE  STORE  NAME  1  00000  -  1  00  f.  32  ;  1  OOODU  :  P 
/ 

/  NOTE  —  WHEN  RESPONDING  TO  A  QUERY,  THE  USER  MAY  TYPE  “G  T- 1  ABORT 
/  THE  MODE.  TYPING  ~0  WILL  BRING  THE  USER  TO  MI  CHUG  (IE  LOADED)  . 

/  VALUE  ASS.  [GNFD  TO  ABORT. 

//  PARAMETER  TABLE 

0  U  COMN ,  0 


1  0  NI.TST,  0 

2  0  LTS1F,  0 

3  0  LISTS,  0 

4  0  LISP  P,  0 

5  0  LIS2S,  0 

6  0  L I  S  3  P  ,  0 

7  0  LIS3S,  0 

10  0  TALKP,  0 

11  0  TALKS,  0 

12  0  EOSC ,  0 

13  0  NDAT,  0 

14  0  NDATB,  0 

15  0  DATAL,  0 

16  0  DATAH,  0 

17  0  RETAL,  0 

20  0  R  FT  A  H ,  0 

21  0  MESS,  0 


/  CAMERA  MAIN  (NOVEMBER  6  ,  1  98  1  ) 

22  0  DI1M1,  0 

23  0  DUMP,  0 

/ 

/ 

/  DEFINITIONS 

LI  STE  N=  40  /OCTAL  BASE  FOR  LISTENERS 

TALK=  100  /OCTAL  BASE  FOR  TALK 

C TL=  1  /ADDRESS  ASSIGNED  TO  CONTROLLER 

CAMERAS  /ADDRESS  ASSIGNED  TO  CAMERA 

BASE:  140  /BASE  FOR  CAMERA  "SECONDARY  ADDRESS! 

OUTFsl  /OUTPUT  FORMAT  (1,2) 

INF:2  /INPUT  FORMAT  (1,2,3) 

XC  (X)  R  D:  3  /X-COORDIN  ATE  (0  -  1023) 

INTERL=4  /INTERLACE  (1,2,4) 

110  RR  ES  :  B  /HORIZONTAL  RESOLUTION  (1,2,  3,4) 

EX  T  AN  =  6  /EXTERNAL  ANALOG  (1=0 FF ) 

MARK=7  /MARKER  ON /OFF  ( 1 =  0 M  ) 

V I D I N  =  1  0  /VIDEO  INPUT 

V I Dl N I  =  1 1  /VIDEO  IN  A  INCREMENT 

VIDIND: 12  /VIDEO  IN  ^DECREMENT 

SLICE:  13  /SLICE  INPUT 

SLICE  1:14  /SLICE  IN  A  INCREMENT 

S  LI  C  ED:  1  'j  /SLICE  IN  A  DECREMENT 

BUFFER:  16  /BUFFER  DISPLAY/ 

/ 

CTLCF  =  406  2 
CTLRD: 44064 
C  TLRDC : 44  n 66 
C  TI.SK  :  6  Ofi  4 
C  T  LW  R  =  4  0  7  1 


CTLRS  =  407  2 


//  CAMERA  TABLE  (DEFINES  CAMERA  COMMANDS  AND  MNEMONICS) 

/  EACH  ENTRY  CONTAINS  THE  FOLLOWING  DATA  IN  THE  SEQUENCE  SHOWN- 
/  MNEMONIC  -  3  LETTERS  IN  PACKED  ASCII  ( R  I  GMT  .IIJST  IF  T  ED) 

/  CODE  -  OCTAL  SECONDARY  ADDRESS  DEFINING  THE  COMMAND 

/  NNIB  -  NO.  OF  NIBBLES  IN  THE  COMMAND  DATA  (0-5) 

/  C-DATA  -  UP  TO  5  NIBBLES  OF  NUMERICAL  DATA  (LEFT  JUST.) 


24 

576564  CTABLE, 

0576564  /OUTPUT  FORMAT  (OUT) 

25 

1  4  1 

BASE+OUTF 

26 

1 

1 

27 

200  000 

0200000  /DEFAULT  1 

30 

51  564  6 

05  15646  /INPUT  FORMAT  (INF) 

31 

1  42 

BASE+INF 

32 

1 

1 

33 

200000 

0200000  /DEFAULT  1 

34 

704357 

0704357  /X-COORD  (XCO) 

35 

1  43 

BASE  +  XCOORD 

36 

3 

3 

37 

1211  000 

1211000  /DEFAULT  5 12 

40 

51  566  4 

05  15664  /INTERLACE  (INT) 

4  1 

1  44 

BASE+INTERL 

42 

1 

1 

43 

400000 

0400000  /DEFAULT  2 

44 

55  4  1  62 

0554162  /MARKER  ON/OFF  (MAR) 

CAMERA 

MAIN  (NOVEMBER 

6,1981) 

4  5 

1  4  7 

BASE-*- MARK 

46 

1 

1 

4  7 

0 

0  /DEFAULT  0 

50 

66  5  1 2  1 

0665121  /1-LINE  VIDEO  (VII) 

51 

1  50 

BASE+VIDIN 

52 

0 

0 

53 

0 

0 

54 

66  5  1  5 1 

0665151  /1-LINE  VIDEO  +  INCREMENT 

55 

1  51 

B ASE+V I  DIN  I 

56 

0 

0 

57 

0 

0 

60 

66  5  1  44 

0665  1  44  / 1  -L I  N  E-*-DEC  R  EM  E  NT  (VID) 

61 

1  52 

B ASE+V I  DIN  D 

62 

0 

0 

6  3 

0 

0 

64 

42  6546 

0426546  /BUFFER  DISPLAY  (HUE) 

65 

1  56 

BASE*  Ml  IKK  KR 

66 

0 

0 

67 

0 

0 

7  0 

300 

300  /  H  TO  TERMINATE  THE  TABLE 

71 

300  1700  START, 

JMS  MC  RLE 

72 

300  1  676 

JMS  MUNP 

-.37- 


TEXT  %  MO 


75 

5  5 1  >  7 

76 

44  4  5  3  7 

77 

1  577  00 

1  00 

300  1  667 

101 

4  6222  3 

1  02 

2  1  6  2  00  0 

10  3 

1  00  1  7  30 

1  04 

4  622  6  1 

1  05 

2  1  6  2  00  0 

1  06 

1  34 

10/ 

4622  62 

1 1  0 

21  6  2  000 

11  1 

21  6 

11  2 

4  622  6  3 

11  3 

2  1  6  2  00  0 

11  4 

263 

11  5 

462264 

1 1  b 

21  62000 

11  7 

3  65 

120 

4  622  65 

121 

21  62000 

122 

560 

12  3 

4  6  22  66 

124 

2  1  6  2  00  0 

12  5 

12  65 

1  2  6 

4  622  t>7 

127 

2  1  621X10 

1  30 

1  32  5 

1  11 

4  622  70 

1  32 

7  1 

1  3  3 

1  34  5 

JMS 

E  C  HO 

A-MZ 

(22  3 

Z.  EH  7 

JMP 

M A  PORT 

A-MZ 

(  "1 

ZKRZ 

JMP 

MO  DEI 

A-MZ 

(  "2 

Z.  ERZ 

JMP 

M0DE2 

A-MZ 

(  "3 

ZKRZ 

JMP 

M0DE3 

A-MZ 

(  "4 

/.  ERZ 

JMP 

M0DE4 

A-MZ 

(  "5 

ZERZ 

JMP 

MO  DEO 

A-MZ. 

(  "6 

/.  ERZ 

JMP 

MO  DEb 

A-MZ 

(  "7 

/.  ERZ 

JMP 

M0DE7 

A-MZ. 

(  "8 

JMP 

START 

JMP 

MODE'S 

/  CAMERA  MAIN  (NOVEMBER  6,1981) 
/ 

/ 


'///// 


139  2170000  MO  DEI  , 

1  36  24  10000 

1  3  6  300  1711 
137  0 

INITIALIZE  THE  CAMERA 

1 40  300 1710 


1  4  1 
1  42 
143 
1  44 
1  45 


576564 

0 

2  00  000 

1 

2  4 


7.  E  R  A 
ACCA 
JMS 
TARE  A 
TABLE 
JMS 

0576564 

0 

0200  000 

1 

C TABLE 


/DUMMY 

/IF  NO  FILE,  ASSUME  IT  1: 
PZERTAB  /ZERO  THE  COMMANi 


A  i  J'  !• 
r  A’M 


A !  ■  Y 
E 


!  N 


TO  DEFAULT  VALUE.' 
^SEARCH 


1  47 

300 1710 

JMS 

^SEARCH 

1  50 

515646 

05  1  5646 

151 

0 

0 

152 

200  000 

0  2  00000 

153 

1 

1 

1  54 

24 

CTABLF. 

155 

1 

1 

156 

300  171  0 

JMS 

^SEARCH 

157 

704  3  57 

0  704  357 

1  60 

0 

0 

161 

1 2  1  1  00  0 

1211 000 

1  62 

3 

3 

1  6  3 

24 

C  TABLE 

1  64 

1 

1 

1  65 

300 1710 

JMS 

^SEARCH 

1  66 

51  566  4 

05 1 5664 

1  67 

0 

0 

1  70 

400000 

0400000 

1  7  1 

1 

1 

1  72 

2  4 

C TABLE 

17  1 

1 

1 

174 

300  17  1  0 

J  M  S 

^SEARCH 

1  75 

55  4  1  62 

0554 1 62 

176 

0 

0 

177 

0 

0 

2  00 

1 

1 

201 

2  4 

C  TABLE 

2  02 

1 

1 

20  3 

4072 

CTLRS 

/RESET  THE 

204 

21  1 000  0 

7.  ERA 

/FORCE  CTL 

205 

21  6566  3 

ZERM 

SC  TLC 

2  06 

21  700  00 

Z  ERA 

207 

21  70000 

Z  ERA 

21  0 

21  70000 

7  ERA 

211 

21  700  00 

Z  ERA 

212 

21  700  00 

Z  ERA 

213 

21  700  00 

Z.  ERA 

214 

4  00  2 

CTLOE 

/CLEAR 

215 

7  1 

JMP 

START 

/  CAMERA  MAIN  ( NOVEMBER  0,1981) 
/ 


2  1  6  300  171o  MO  OK,’  , 
217  7  1 

22  0  3001700 


•IMS 
START 
6>C  KLF 


rtf,  FT  K II.  /POT  FILE  IN  NIC  CORE 
/ERROR  EXIT  FROM  OETFII. 


22  1 

300 1 676 

M0DE21  , 

.IMS 

PUNP 

2?? 

1  3 

1  3 

22  3 

0 

0 

22  9 

4  367 

TEXT  % 

CO 

22  9 

6565  4  1 

MM  A 

22  6 

664403 

ND// 

22  7 

371577 

?-  % 

230 

300 1711 

JMS 

0ZERT AB 

231 

0 

T  A  BL.  A 

23  2 

3  0  0  1  66  7 

JMS 

A*  EC  HO 

233 

24064  1  3 

ACC  M 

TEMP 

234 

4  622  70 

A-M7. 

(2  70 

236 

240 

JMP 

«+  3 

23  6 

1 1  00  1 1 

MEM  A 

(11 

237 

243 

JMP 

//+  4 

2  40 

4  622  70 

A-MZ 

(270 

24  1 

22  1 

JMP 

M0DE21 

242 

1 1  00  1 1 

MEMA 

(  11 

243 

24040  1  6 

ACC  M 

DATAH 

244 

2111 724 

MEMA 

BUFS 

2  46 

240400  1 

ACC  M 

NLTST 

246 

11  0005 

MEMA 

(5 

247 

2404000 

ACC  M 

COMN 

2  60 

11  000  2 

MEMA 

(2 

26  1 

24040  1  4 

ACC  M 

N  DA  TR 

262 

21 64022 

Z  ERM 

[HIM  1 

263 

200 1 64 1 

JMS 

C0M5 

264 

2111413 

MEMA 

TEMP 

266 

4622  7  0 

A-MZ 

(270 

2  66 

261 

JMP 

//+  3 

NL 

COMB 

AT 

2  57 

267 

3000267 

JMS 

flCOMB 

260 

262 

JMP 

if  +  2 

NL 

COMB 

AT 

261 

261 

3000267 

JMS 

PC  OMR 

262 

7  1 

JMP 

START 

/ 


/COMMAND  SHOULD  R F  ASCII  270 

/STORE  AT  9  00  H 

/WRONG  COMMAND  il 
/STORK  AT  9 00 H 

/SET  HP  COMMAND  T  A  HI.  F.  FOR  KILE  TRAN: 

/ASSUME  2  266  BYTE  BLOCKS  FOR  TRANSI 


////////////I 


26  3 

2000  352 

MODE 3 , 

JMS 

FI  LEO 

2  6  4 

3001703 

JMS 

6  P  K  R 

265 

2  77 

F  IL  1 

2  66 

0 

N  W 1  , 

0 

2  67 

300  1  700 

JMS 

PC  RLF 

2  70 

11  00  0  3 

MEMA 

(  3 

27  1 

25  1  0266 

A  >  M  A 

NW  1 

/  CAMERA  MAIN  (NOVEMBER  6,1981) 


-40- 


] 


'  J 


212 

2404274 

AC  CM 

N  A? 

273 

300  1  676 

J  M  S 

(SUNK 

/SEND  Cf 

274 

0  NW2, 

0 

275 

1 

1 

276 

1  6  300 

1  6  5  00 

2  77 

0  F  11.  1  , 

BLOCK 

2 

30  1 

77  00  00 

077 0000 

302 

300 1 702 

JMS 

0  PAKF 

/RF.CE1VI 

303 

5  4  2 

COMSTO 

3  04 

1  00  0  0  0 

1  00  00  0 

305 

!) 

0 

3  06 

1  00  000 

1  On  000 

307 

0  N BYTES  , 

0 

3  1  0 

2 112 507 

M  KM  A/. 

N BYTES 

3 1 1 

2404  5  1  h 

AO  CM 

N  W  3 

3 1 

4  7  0004 

A-M  A 

I  4 

3  1  3 

5  1  44 

FX2  r 

AC  1  9 

3  1  4 

2  6  3 

JMP 

MODE  3 

3  1  5 

.507  l  7  0b 

.IMS 

*•  IF.  KH  EX. 

3  1  0 

0  NW3, 

0 

3  17 

0  N  BY  6  , 

1 1 

320 

2110316 

MEM  A 

NW  5 

32  1 

2404  32  6 

A  :cm 

N  W  4 

322 

21 11 724 

MEM  A 

BUFS 

32  3 

34  06722 

ACC  M 

MO  ARC  3 

324 

3001707 

J  M  S 

MNICFIE 

32  5 

0  NW4, 

0 

32  6 

2  77 

E  I L  1 

32  7 

331 

JMP 

M0DE3  1 

/ERROR 

33  0 

7  1 

JMP 

START 

331 

300  1  676  MODK3  1, 

JMS 

6MJNP 

332 

2  1 

21 

33  3 

666  7 

TEXT  i 

NO 

334 

6267  RO 

335 

675600  OM 

33  6 

4  6676  2  FOR 

337 

4  66  1  F  I 

•540 

544  677  LE* 

34  1 

1  00  1  7  30 

JMP 

MABORT 

342 

0  COMSTO, 

0 

343 

6  454 

TTY  RE 

34  4 

34  3 

.IMP 

“1  - 1 

345 

44  4  63 

RDTTY 

34 1. 

4  (,22  32 

A-MZ 

(2  32 

/CHECK 

34  7 

1  000  54  2 

JMP 

P COMSTO 

350 

30  267  32 

ON  EM 

M PCOUNT 

3  6  1 

1  00  0  34  2 

JMP 

M COMSTO 

NOTE 

THAT  SETT  IN  0  PCOUNT  TO  1 

F  0  R  C  FS 

PAKE  TO 

SHO  IJ1.D 

BE  CONE  I 

cured  TO 

SEND  Kf 

COMMAND  TO  COMM-OTOK  TO  SEND  I 


THE  DATA  AND  PACK  IT 


RETURN  FROM  NICK  IE -NO  ROOM 


I-  OR  "/  (END  OK  FILE.) 


OP 


(.OMM-S  TO  R 


-41- 


-V*  V- . 

uA  mJLjk*jLL+2. 


.J 

O 


I 


I 


//  SUB  ROUT  INK  FILKQ 

/  PURPOSE  —  SEND  MESSAGE  -  FILE  NAME?- 


352 

0 

FILEQ, 

0 

353 

300 1 700 

JMS 

A»C  RLF 

354 

300 1 676 

JMS 

PU  NP 

355 

1  4 

1  4 

M  E  R  A 

MAIN  (NOVEMBER 

6,1981) 

356 

0 

0 

357 

4  65  1 

TEXT 

%  FI 

360 

544  50  0 

LE 

361 

56  4  1  65 

NAM 

362 

46  3715 

E?- 

36  3 

77  00  00 

% 

364 

1  000  362 

.IMP 

fFILEQ 

3  66 

300 1711 

M0DE4  , 

.IMS 

0  7.ER  TAB 

3  66 

0 

TABI.A 

367 

1 1  00  05 

MEMA 

(6 

370 

2404000 

ACC  M 

COM  N 

371 

110311 

MEMA 

(311 

372 

240400  1 

ACC  M 

N LI  ST 

37  3 

1 1  00  1  4 

MEMA 

(  1  4 

37  4 

24040  16 

ACC  M 

H  A  TAM 

3  75 

21  44  0  22 

MON  M 

DU  M  1 

3  76 

300  1  676 

MODE4  1  , 

JMS 

(30  Nl> 

377 

1  3 

1 3 

400 

0 

n 

40  1 

5  5  6  6 

TEXT  % 

MI! 

4  0  2 

46666  7 

EMO 

40  3 

666 1 43 

MIC 

40  4 

3  7  1  677 

?-  % 

406 

300 1 703 

J  M  S 

M  P  K  R 

40  6 

4  1  6 

h  11.2 

40  7 

0 

NC  , 

0 

4  1  0 

300  1  700 

J  M  S 

MC  RLF 

4  1 1 

21  644  2  3 

X  E  R  M 

FLAG 

4  12 

21 1 0407 

MEMA 

NC 

4  1  3 

4  6  2  00  3 

A-MZ 

(3 

4  1  4 

3  76 

JMP 

MODE4  1 

4  1  6 

300  1  710 

J  M  S 

f*  SEARCH 

4  1  6 

0 

F  11.2, 

0 

4  1  7 

0 

CODE , 

0 

4  20 

0 

V  A  L , 

0 

421 

0 

N  BYTE , 

0 

42/ 

2  4 

C TABLE 

//. 


/INI  T  1  Al.I  /F  COMMAND  TAiU.K 
/FROM  NIC  TO  CTL 


/WILL  !•  F  .".ENDING  M  I  up  I 


V  OR  r  A T A 


/MIIS 


I' AVI-  3  CI1AK. 


■42- 


A.’W  V  ■h  -'w'.A' 


423 

0 

FLAG  , 

0 

424 

21 02423 

MEMZ 

F  L  AG 

425 

376 

JMP 

M0DE4  1  /NON-ZERO  FI. AG  MEANS  MNEMONIC  NOT  F( 

426 

21  1 2  421 

MEMAZ 

NbYTE 

427 

431 

JMP 

//  +  2 

430 

4  75 

JMP 

MODE42 

431 

2404436 

ACC  M 

NRY  1 

432 

21  1  04  1  6 

MEM  A 

F  IL2 

433 

24044  66 

ACC  M 

MM  1 

434 

300 1701 

JMS 

0UNPF  /DISPLAYS  THE  NIBBLES 

435 

2  33  0 

HF.XT  A 

/TYPF.1  CONVERTS  4  BIT  HEX  TO  NIC-ASCII  AND  ' 

43  6 

0 

N  BY  1  , 

0 

437 

3777777 

7777777 

/-I  FOR  NIBBLES 

CAMERA  MAIN  (NOVEMBER 

6,1981) 

44  0 
44  1 

420 
11  0240 

VAL 

MEM  A 

(240 

44  ? 

300 1 677 

JMS 

0TYPE 

44  3 

300 1  .77 

JMS 

0TYPE 

44  4 

300 1 677 

JMS 

0TYPE 

44  5 

2000505 

JMS 

NIB  /PACK  THE  USER  GIVEN  NIBBLES 

44  6 
44  7 

4  70 
0 

N  BY  2 , 

VAL4 

0 

4  50 

300  1  700 

JMS 

0CRLF 

45  1 

21  1244  7 

MEMAZ 

N BY 2  /IF  NO  BYTES,  USE  DEFAULT 

452 

4  60 

JMP 

//+  6 

45  1 

211 0420 

MEMA 

VAL 

4  64 

2404002 

ACC  M 

L I  S 1  P 

4  55 

21 1 0421 

MEMA 

NBYTE 

4  56 

24040  1  3 

ACC  M 

N  DA  T 

457 

4  74 

JMP 

MO  DE4  3 

4  60 

24040  1  3 

AC  C  M 

N  DAT 

46  1 

24044  7  1 

ACC  M 

N  BY  4 

4  67 

21  1  04  70 

MEMA 

VAL4 

46  I 

2404002 

ACCM 

I.I  SI  P 

464 

20244  7  3 

ON  EM 

FLG4 

4  65 

300  1710 

JMS 

^SEARCH  /UPDATE  THE  C-TABI.F  WITH  THE  NEW  VAI 

4  66 

0 

MM  1  , 

0 

4  67 
470 

0 

0 

VAL4  , 

0 

0 

47  1 

0 

N  BY  4  , 

0 

4  72 
47  3 

2  4 

0 

FI.G4  , 

C I  ABLE 

0 

474 

200  1  54  1 

M0  0E4  3 , 

JMS 

COMB 

4  75 

2024000 

MODE4  2, 

ON  EM 

COMN  /SET  "1  OMMAND  TABLE  FOR  CTL-CAM 

4  76 

202400  1 

ON  EM 

n  1. 1  s  r 

4  77 

1 1  00  4  2 

MEMA 

(  i.l  S  TEN*  CAME  R  A 

500 

2404002 

ACCM 

LI  SI  P 

50  1 

2110417 

MEMA 

CODE 

I 


SO? 

240400  I 

ACC  M 

L I  S 1  S 

SO  3 

2  00  1  sOO 

JMS 

C  OM  1 

SO  4 

7  1  MODK44, 

JMP 

START 

//  SUB  ROUT  INK  NI B( VALA ,NN I B) 


/ 

/ 

/ 


PURPOSE  —  PACKS  NNIB  USER  GIVEN  NUMBERS  INTO  THE  lOrATION 
GIVEN  BY  VALUA.  UP  TO  5  NIBBLES  .LEFT  .JUSTIFIED  0  FI! 
MAY  BE  PACKED.  THE  NUMBER  OK  NIBBLES  IS  RETURNED  IN 
AND  IS  DETERMINED  BY  CR. 


NN  I  B 


505 

0  NIB, 

0 

506 

3001702 

JMS 

@PAKF 

f 

50  7 

55  2 

E  C  HO  1 

u 

510 

6 

6 

511 

0 

0 

5  12 

1  770 

PENDA 

513 

0  NNIB, 

0 

\ 

514 

2110513 

MEM  A 

NNIB 

► 

515 

3404547 

ACC  M 

0COUNTN 

5  1  6 

1 1  00  0  6 

MEM  A 

(6 

517 

3404546 

ACCM 

@W  CNT 

• 

520 

2711  723 

MMOA 

PEND 

/  CAMERA  MAIN  (NOVEMBER 

5,1081) 

521 

3404544 

ACCM 

PWPNT 

V 

5  2? 

31 54545 

2F.RM 

PWORD 

523 

2111723 

MEMA 

PEND 

c 

5  24 

3544  55  1 

A  MOM 

6APNT 

Pc 

525 

3024550 

ON  EM 

6BCNT 

t'. 

526 

300 1 704 

JMS 

0DEC 

L 

527 

3 1 1 0505 

MEMA 

PNIB 

f 

530 

24054  1  3 

ACCM 

TEMP 

- 

531 

3110545 

MEMA 

PWORD 

* 

5  32 

34054  1  3 

ACCM 

0TEMP 

5  33 

2124505 

M  POM 

NIB 

5  34 

21 1 05  1  3 

MEMA 

NNIB 

535 

3544505 

AMOM 

@NI  B 

• 

5  36 

4  6200  6 

A-MZ 

(6 

537 

542 

JMP 

NI  B3 

5  40 

3111 723 

MEMA 

0  P  E  N  D 

: 

54  1 

34  05  4  1  3 

ACCM 

0TEMP 

542 

2124505  NIB3, 

M  POM 

NIB 

•* 

5  43 

1 000505 

JMP 

PNI  B 

i 

/COMMON 

DEFINITION 

5  44 

3414  WENT, 

W  P  N  T  D 

5  45 

3415  WORD, 

w  p  n  r  D+  1 

- 

54  6 

34 1 6  WENT , 

WPNTD+? 

54  7 

34  17  COUNT  N, 

WPNTD+3 

55  0 

3  4  20  DC  NT, 

W  P  N  T  D+  4 

* 

55  1 

34  21  A  P  N  T , 

W  P  N  T  D+  5 

/-I  BECAUSE  OF  CR 
/IF  HAVE  FULL  WORD, 


GET  F  R  OM  PEN  [) 


.-.1 
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55  2 

0  ECHO  1  , 

0 

55  3 

300  1  667 

JMS 

@  E  C  HO 

55  4 

4  622  1  5 

A-MZ 

(215 

55  5 

1  000552 

JMP 

@£CHO  1 

55  6 

3025732 

ON  EM 

0PCOUNT 

55  7 

1  00  055  2 

JMP 

@  ECHO  1 

/ 

/ 

/////////////////// 

/ 

/ 


560 

300  1711 

MODE5  , 

JMS 

PZERTAB 

56  1 

0 

TARLA 

56  2 

21  1  1  734 

MEM  A 

T  3 

/SET  DIVIDE  ARGUMENTS 

563 

2405202 

ACC  M 

REM2 

564 

1 1  00  0  5 

MEM  A 

(5 

565 

2405005 

ACC  M 

REM 

566 

2405 170 

ACC  M 

R  EM  1 

567 

1 1  00  4  il 

MEMA 

(44 

/SET  POIL  STATUS  BYTE  COUNTER 

570 

24055  40 

ACC  M 

NCNT 

571 

2000352 

JMS 

FILED 

/GET  FILE  NAME,  MAY  HI  "PRINT" 

572 

300 1703 

JMS 

@PKR 

573 

1260 

FILNM 

574 

0 

0 

575 

300  1  700 

JMS 

0CRLF 

576 

300 1710 

JMS 

^SEARCH 

/GET  SOME  CAMERA  PARAMETERS  TO  DFTEF 

577 

704357 

0704357 

/SPACE  : 

REQUIREMENTS 

600 

0 

0 

:amera 

i  MAIN  (NOVEMBER 

6,1981) 

601 

0 

VALM5 , 

0 

602 

0 

N  BM5  , 

0 

603 

24 

C  TABLE 

604 

0 

0 

605 

21 1 060  1 

MEMA 

VALM5 

606 

2404  6  12 

ACC  M 

V ALM5 1 

607 

21 1 0602 

MEMA 

N  RM5 

6  1  0 

24046  1  3 

ACC  M 

N  BM5  1 

611 

300 1 705 

JMS 

f»  N  I  BR  I N 

/CONVERT  TO  BINARY  INTEGER 

6  12 

0 

VALM5 1 , 

0 

613 

0 

N  BM5  1  , 

0 

6  1  4 

12 

12 

615 

0 

BIN  , 

0 

616 

300 1710 

JMS 

''SEARCH 

/LOOK  AT  INTERLACE  TO  GET  NO.  OF  ELI 

617 

5 1 566 4 

05  1  566 

620 

0 

0 

621 

0 

VAI.M5  2, 

0 

6  22 

0 

0 

-4  5- 


24 

o 

21 1 0621 

2404676 
20264  1  4 
300 1 67b 
1  0 
0 

4  66  2 
4  1  55  4  5 
371577 
300 1703 
14  15 
0 

300  1  7  00 
2111415 
2404647 
21 64654 
300  1  710 
0 
0 
0 
0 
2  4 
0 

2702654 
66  0 
b  3  1 

21  1  0  650 
4621 50 

66  4 
7  0  1 

4  621 5  1 

67  2 
1 1  1  77  7 

2430000 


MO  05  0  , 


F  I L  M  5  1 


CTARLE 

0 

MEMA  VALM52  /GET  INTERLACE  NIK'LF  AID  CONVERT  T( 

LL.SH  4 

ACC  M  INT 


ON  F,M  N 

.IMS  @UNP 

1  0 
0 

TEXT  *  FR 


/ N  IS  THE  NO.  OF  LINES 'FRAME;  FEFA'.i 


/  CAMERA  MAIN  (NOVEMBER 

670  2470615 

671  675 

672  462152  MODE52, 

67  3  6  3  1 

67  4  21  306  1  5 

675  300  1  71 2  MODE5  3, 

676  0  INT, 

677  406022 
7  00  2  4  0  5  4  1  4 

701  300  1  71  0  MODES  1 , 


MODES  3, 

INT, 


.IMS 

FILMS 

0 

JMS 
M  EM  A 
A  C  C  M 
1  ERM 
JMS 
0 
0 
0 
0 

CTARLE 

0 

MM  0  Z 

JMP 

JMP 

MEMA 

A-MZ 

JMP 

JMP 

A-MZ 

JMP 

M  EM  A 

A  POA 

b  ,  1 96  1  ) 
A-M  A 
JMP 
A-MZ 
JMP 
M  POA 
JMS 
0 

13  ISH 
AC  CM 
JMS 


6PKR 


6>C  RI.F 
FILMS 
F  ILM5 1 
FLO!  5 

PSEARCH  /GET  CORRESPONDING  CODE 


FLGM5  /FLAG=  1  MEANS  WRONG  COMM  AN' 
//  +  2 
MOD50 
C  0  DM  5 

( B ASE+V I  DIN 
It  +  2 

MODES  1  /N  =  1  FOR  V  I  DIN  ,  ELSE  CA.  . 

(  R  ASE  +  V I  DIN  I 

MODF.52  /  (  1  024  -  XO  00  R  P  )  *  I MT  /  4  or 
(  1  777  /  (  XCOORP+  1  )  » I N T / 4 


BIN 

MODES  3 

( BASF+VI DIND 

MO  050 

BIN 

P MU  I. TP 


2 

N 

6  S  E  A  R ! :  I 


/DIVIDE  BY  4 


» 


702  5  1  564  6  05  1  5646  /INF 


703 

0 

0 

704 

0 

VALM53, 

0 

705 

0 

0 

706 

24 

CTABI.E 

707 

0 

0 

710 

21 65430 

Z  ERM 

FACT1 

711 

21 1 0704 

MEM  A 

VALM53 

712 

5044 

LLSH 

4 

713 

2404  704 

ACC  M 

VALM5  3 

7  1  4 

11  0004 

MEMA 

(4 

715 

2404730 

ACC  M 

FACTOR 

716 

21 1 0704 

MEMA 

VALM5  3 

717 

462002 

A-MZ 

(2 

720 

7  22 

JMP 

#+2 

721 

2024730 

ON  EM 

FACTOR 

722 

462003 

A-MZ 

(3 

723 

726 

JMP 

//+  3 

724 

11  00  20 

MEMA 

(20 

725 

2405430 

ACC  M 

FACT1 

726 

211 0676 

MEMA 

INT 

727 

300 1712 

J  MS 

0MULTP 

730 

0 

FACTOR, 

0 

7  31 

24054  1  6 

ACC  M 

NDATR1 

7  32 

300  1712 

JMS 

0MULTP 

7  33 

4  00 

400 

7  34 

2511  430 

A+MA 

FACT1 

735 

240521 3 

ACC  M 

NWORD 

CHECK  FOR  CTL  BUFFER 

OVERFLOW 

736 

2111740 

MEMA 

BFSZ 

737 

247121 3 

A-MA 

NWORD 

740 

5  1  04 

SKIP 

AC  1  9 

74  1 

755 

JMP 

MOD5  3A 

742 

300 1 676 

JMS 

@UNP 

743 

22 

22 

7  44 

1 

1 

745 

4350 

TEXT 

% 

CH 

746 

4 1 5647 

ANG 

747 

45005  1 

E  I 

750 

564600 

NF 

751 

576200 

OR 

752 

5  1566  4 

INT 

753 

77  00  00 

% 

754 

1264 

JMP 

M0D5E 

/  IF  INF  IS  NOT  2  OR  IF  THE  FILE  NAME 


/CHANGE  TO  1  , 2  OR  3 

/NO.  OF  BYTES/LIN E=?56»INT* 

/  (4  OR  1  OR  4  +  0  OR  0  OR  1/16) 


/NO.  OF  256  BYTE  BLOCKS/LINE 

/TOTAL  NO.  OF  BYTES /LINE 


S  PR  I (NT) ,  THE  CAMERA 


/  CAMERA  MAIN  (NOVEMBER  6,1981) 

/  VIDEO  IS  PRINTED  ONLY  AND  NO  FILE  IS  CREATED  ON  THE  DISK. 

755  20254  17  MODS  /A  ,  ONEM  PRTFLG  /I  MEANS  THIS  IS  A  "PRINT  FILE" 


756 

31  65725 

ZERM 

PSMODE 

757 

11  0100 

MEMA 

(  1  00 

760 

3405726 

ACCM 

PSWCNT 

76  1 

3405727 

ACCM 

PSWCNTO 

76  2 

21 1 0704 

MEMA 

VALM53 

763 

4  6  2  00  2 

A-MZ 

(2 

76  4 

1  045 

JMP 

MODE59 

765 

21 1 1260 

MEMA 

F  ILNM 

766 

2463733 

A-MZ 

PRI 

767 

77  5 

JMP 

MO  1)5  4 

77  0 

3025725 

ON  EM 

PSMODE 

77  1 

1 1  00  4  0 

MEMA 

(40 

77? 

3405726 

ACCM 

PSWCNT 

77  3 

3405727 

ACCM 

PSWCNTO 

77  4 

1  045 

JMP 

MODE59 

/  FOR  A 

DISK  FILE  ,  WE 

HAVE  TO 

ESTIMATE 

/  FILE  ETC. 

77  5 

21 65417 

MOD5  4  , 

ZERM 

P  RTELG 

776 

2111213 

MEMA 

NWORD 

77  7 

2405003 

ACCM 

//  +  4 

100  0 

21 1 1414 

MEMA 

N 

1  00  1 

500  1 

LASH 

1 

1  00  2 

300 1712 

JMS 

PMULTP 

100  3 

0 

0 

1  00  4 

3001713 

JMS 

PDIVPE 

100  5 

0 

REM  , 

0 

1  00  6 

2425421 

APOM 

S  IZE 

1  00  7 

2  1  1  1  00  5 

MEMA 

R  EM 

1010 

470003 

A-MA 

(3 

1011 

5  1  04 

SKIP 

AC19 

1012 

2125421 

M  POM 

S  IZE 

1013 

31 65721 

ZERM 

POARG? 

10  14 

2111260 

MEMA 

F  ILNM 

10  15 

2405021 

ACCM 

FILNM1 

10  16 

21  1 1 26 1 

MEMA 

F ILNM+1 

1017 

2405022 

ACCM 

F ILNM1+ 

1020 

300 167? 

JMS 

PC LOSE 

1021 

0 

F  ILNM1 

,  0 

1  022 

0 

0 

1  023 

31  657  2  0 

Z  ERM 

P0ARG1 

1  024 

2111421 

MEMA 

S  IZE 

1026 

3405721 

ACCM 

P0ARG2 

1026 

300  1  67  0 

JMS 

POPFNW 

1  027 

3111721 

MEMA 

P0ARG2 

1030 

247 1 421 

A-MA 

S  IZE 

1031 

5  1  04 

SKIP 

AC19 

1  032 

1  04  2 

JMP 

MODE56 

1033 

300 1 676 

JMS 

PlJNP 

10  34 

1  0 

1  0 

/SET  SENDF  MODE  SWITCH 

/IF  INF  .  NE.  2  THEN  IS  PRINT  FILE  R 
/ S E F.  IF  PRINT 
/PREPACKED  "PRI" 


THE  SPACE  REQUIRED,  OPEN  THE 

/BYTES /LIN  E*N*TOTAL  NO.  OF  BYTES 

/THEY  ARE  REDUCED  BY  P/5  IN  PACKING 
/MULT  BY  2 

/DIVIDE  BY  5 

/MUST  BE  A  REMAINDER  OF  AT  LEAST  1 
/TAKE  CARE  OF  THE  REMAINDER 

/DELETE  FILE  IF  IT  EXISTS 


/TOTAL  NO.  OE  PACKED  W-'iRDS 
/CHECKS  TO  MAKE  SURE  THERE  IS  ROOM 
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1035 

1 

1 

1036 

5657 

TEXT 

t  NO 

1037 

6  257 

RO 

1040 

575577 

0M% 

CAMERA 

,  MAIN  (NOVEMBER 

6,1981) 

1041 

1264 

JMP 

M0D5E 

1042 

3111 720 

M0DE56  , 

MEM  A 

POARG 1 

1043 

2405422 

ACC  M 

I  TO 

/STARTING  TRACK  FOR  THE  FILE 

1044 

2405224 

ACC  M 

IT 

1045 

21 1 0676 

MODE59, 

MEM  A 

INT 

/GET  APPROPRIATE  VALUES  ASSOCIATED 

1  04  6 

4  6  2  00  4 

A-MZ 

(4 

/LIMITS  FOR  STORING  THE  DATA 

104  7 

1  056 

JMP 

MODE5  7 

/AND  FOR  PAUSE 

1050 

1 1  00  1  7 

M  EM  A 

(  1  7 

105  1 

2405420 

ACCM 

J  1 

1052 

11  0004 

MEM  A 

(4 

1053 

2405423 

ACCM 

L  1 

1054 

21  1  1  737 

MEMA 

PA4 

1055 

1  073 

JMP 

M0DE5  5 

1056 

4  6  2  00  2 

M0DE57 , 

A-MZ 

(2 

1057 

1  066 

JMP 

MODE58 

1060 

1 1  00  3  6 

MEMA 

(36 

1  061 

2405420 

ACCM 

J  1 

1062 

11  000  2 

MEMA 

(2 

1063 

2405423 

ACCM 

LI 

1064 

2111736 

MEMA 

PA2 

1065 

1  073 

JMP 

M0DE55 

1066 

1 1  00  7  4 

M0DE58, 

MEMA 

(74 

1067 

2405420 

ACCM 

J  1 

1070 

11  0020 

MEMA 

(20 

1  07  1 

2405423 

ACCM 

L  1 

1072 

21 11735 

MEMA 

P  A  1 

1073 

2405  126 

M0DE55  , 

ACCM 

PAUC 

1074 

2111414 

MEMA 

N 

/SET  COUNTER  WITH  THE  TOTAL  NO.  OF 

1075 

2405424 

ACCM 

COUNT 

>ET  UP 

THE  FIXED  PORTION  OF 

THE  COMMAND  TABLE 

1076 

1 1  00  1  4 

MEMA 

(14 

1077 

24040  1  6 

ACCM 

DATAH 

11  00 

11  0102 

MEMA 

(TALK+CAMEKA 

1101 

2404  0  1  0 

ACCM 

T  ALKP 

11  02 

21  640  1 1 

Z  ERM 

TALKS 

11  03 

11  0  1  50 

MEMA 

( BASE+VI PIN  /VII  FIRST  TIME  THROUGH 

11  04 

2404003 

ACCM 

LI. SIS 

11  05 

2024022 

ON  EM 

DU  M  1 

/DATA  IS  PACKED  UNLESS  PRINTED 

11  06 

2  7  034  1  7 

MM  OZ 

PRTFLG 

11  07 

21 64022 

ZERM 

DU  M  1 

1110 

21 65425 

M0DE5I  , 

7.  ERM 

N  BY  T5 

/I  LOOP 

1111 

21 1 1 420 

MEMA 

J  1 

1112 

2405426 

ACCM 

J 

-49- 


1113  202*1000  MODE5J,  ON  EM  CO  MN  /SEND 

111  4  202400 1  ON  EM  N  LI  ST 

11  1  5  21  6401  3  ZERM  N  DA T 

11  1  6  21  64014  ZERM  N  DA  TB 

1117  11  0042  MEMA  ( LI STE N+CAMERA 


1120 

2404002 

ACC  M 

LI  SI  P 

1121 

200  1  500 

JMS 

C0M1 

11  22 

11  00  04 

MEMA 

(4 

1123 

2404000 

ACC  M 

COMN 

1124 

21  64003 

ZERM 

LI  SIS 

1125 

3001716 

JMS 

@PAUSE 

1126 

0 

PAUC  , 

0 

CAMERA 

i  MAIN  (NOVEMBER 

6,198  1) 

1127 

2  00  1  5 1 6 

JMS 

COM4 

11  30 

11  0002 

MEMA 

(2 

11  31 

2404000 

ACC  M 

COMN 

11  32 

2111416 

MEMA 

N  DA  TB  1 

11  33 

24040  1  4 

ACC  M 

N  DA  TB 

11  34 

200 1 507 

JMS 

COM? 

11  35 

11  0006 

MEMA 

(6 

11  36 

2404000 

ACCM 

COMN 

11  37 

211 1 724 

MEMA 

RUES 

11  40 

240400  1 

ACCM 

N  LI  ST 

114  1 

21 1 1 426 

MEMA 

J 

11  42 

2463420 

A-MZ 

J  1 

11  43 

21  4400  1 

MONM 

NLIST 

11  44 

200  1  604 

JMS 

C0M6 

11  45 

211 0650 

MEMA 

C  0  DM  5 

11  46 

2404003 

ACCM 

LIS1S 

1  1  47 

2111213 

MEMA 

NWORD 

11  50 

2505425 

A  +  MM 

NBYT5 

1151 

2707424 

MMOMZ 

COUNT 

11  52 

1  1  54 

JMP 

//  +  2 

11  53 

1  1  64 

JMP 

M0D5  J  1 

11  54 

2707426 

MMOMZ 

J 

1  1  55 

21  62000 

Z  ERZ 

11  56 

1161 

JMP 

M0D5  JO 

11  57 

2  7034  1  7 

MM  OZ 

P  RTFLO 

11  60 

1113 

JMP 

M0DE5J 

1161 

1 1  00  0  4 

M0D5  JO, 

MEMA 

(4 

11  62 

2405427 

ACCM 

NTRCK 

11  63 

1206 

JMP 

M  0  D5  J  2 

11  64 

2111 425 

M0D5  J  1  , 

MEMA 

NBYT5 

11  65 

300 1712 

JMS 

0MULTP 

11  66 

2 

2 

11  67 

3001713 

JMS 

@DI VDE 

1170 

0 

REM1  , 

0 

1171 

242543  1 

A  POM 

SUM 

/POLL 

/  R  ECV 

/NICO 

/DON'T  RESET  COM 6  EXCEPT  WHEN  J = 1 
/FOR  NEXT  PASSES 

/ACCUMULATE  TOTAL  No.  OF  BYTES 


/DIVIDE  PY  5 

/MUST  HAVE  A  REMAINDER 
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11  72 

2111170 

MEMA 

R  EM  1 

11  73 

470003 

A-M  A 

(3 

11  74 

5  1  04 

SKIP 

AC  1  9 

11  75 

2125431 

M  POM 

SUM 

11  76 

21  70000 

Z  ERA 

/GET  READY  FOR  DIVIDE 

11  77 

4  354 

TACMQ 

1200 

2111431 

MEMA 

SUM 

1201 

3001713 

JMS 

0DIVDE 

1202 

0 

REM2  , 

0 

1203 

2405427 

ACC  M 

NTRCK 

1204 

21  03202 

MEMZ 

REM2 

1205 

2125427 

MPOM 

NTRCK 

1206 

27034  1  7 

MOD5  J2, 

MMOZ 

PRTFLG  /PRINT  OR  STORE? 

1207 

1217 

JMP 

M0D5  J3 

1210 

300  1700 

JMS 

PC  RLF 

121  1 

3001701 

JMS 

0UNPF 

1212 

4242 

SENDFA 

1213 

0 

NWORD, 

0 

1214 

1 

1 

/DATA  IS  NOT  PACKED  FOR  PRINT 

1215 

1  00  0  0  0 

1  00000 

/  CAMERA 

.  MAIN  (NOVEMBER 

6,1981) 

1216 

1234 

JMP 

M0D5  J4 

1217 

2111427 

MO  D5  J  3  , 

MEMA 

NTRCK 

1220 

2405432 

ACC  M 

K 

1221 

21 1 1 724 

MEMA 

BUFS 

1222 

240522  6 

ACC  M 

I  START 

1223 

300  1  67  3 

M0D5K, 

JMS 

0WRITF. 

1224 

0 

IT, 

0 

1225 

3000 

TRKSZ , 

3000 

1226 

0 

I  START, 

0 

1227 

2  1  2  5  22  4 

MPOM 

IT 

1230 

2111225 

MEMA 

TRKSZ 

1231 

2505226 

A  +  MM 

ISTART 

1232 

2707432 

MMOMZ 

K 

1233 

1223 

JMP 

M0D5K 

1234 

21  03424 

MOD5J4, 

MEMZ 

COUNT 

1235 

1110 

JMP 

M0DE5I 

123  6 

27034  1  7 

MMOZ 

PRTFLG 

1237 

124  1 

JMP 

11  +  2 

1240 

1264 

JMP 

M0D5E 

124  1 

311  1731 

MEMA 

0SYSTRT 

124? 

24054  1  3 

ACC  M 

TEMP 

124  3 

21 1 0676 

MEMA 

INT 

1244 

5070 

RLSH 

1  0 

1245 

2  6  114  14 

A  +  M  A 

N 

124  6 

3405731 

ACC  M 

0SYSTRT 

124/ 

21 1 1 422 

MEMA 

I  TO 

12  50 

3405720 

ACC  M 

00  A  RG  1 

/STORE  THE  PACKED  DATA  ON  NTRCKS  TR, 
/POINTS  TO  START  OF  BUFFER  AREA 
/START  OF  K  LOOP 


/END  OF  I  -LOO  P 

/IF  THIS  IS  A  PRINT  FI. AG  GOTO  THE  E 


/SAVE  TO  RESTORE 
/CLOSE  THF.  FILE 

/THE  INTERLACE  NO.  IS  STORED  AS  THE 
/ORDER  BITS  OF  THE  PSA  PORTION  OF  Tl 
/DIRECTORY  ENTRY;  THE  NO.  OF  LINES 
/IN  THE  LOW  ORDER  B ITS 


1251 

2111224 

MEM  A 

IT 

1252 

2471  422 

A-MA 

I  TO  ^ 

1253 

3405722 

ACC  M 

@  0  A  R  G  3 

/NO-r-OF  -TRAC-KS  STORED  IN  CORE  RUFFE 

1254 

300 1712 

JMS 

0MULTP 

x  ..  ^ 

1255 

3000 

3000 

- 

1256 

3405721 

ACC  M 

@0  ARG2 

1257 

300  1  672 

JMS 

@CLOSE 

1260 

0 

FILNM  , 

0 

1261 

0 

0 

1262 

2111413 

MEMA 

TEMP 

1263 

3*105731 

ACC  M 

0SYSTRT 

1264 

71 

M0D5E  , 

JMP 

START 

LIST 

/ 

1265 

300 1 67b 

MODE6 , 

JMS 

PUNP 

12  66 

5 

6 

1267 

0 

0 

1270 

504570 

TEXT  %H EX 

1271 

56  1  577 

N -% 

1272 

2000505 

JMS 

NIB 

1273 

14  14 

N 

1274 

0 

N  BY  6  , 

0 

1275 

2  1  1  1  2  7  4 

MEMA 

N  BY  6 

12  76 

462005 

A-MZ 

(5 

12  77 

12  65 

JMP 

M0DE6 

/MUST  GET  4  NIBBLES  FOR  ADDRESS  AND 

1  300 

2111414 

MEMA 

N 

/I  FOR  NO.  OF  BLOCKS  (EG.  OCOO  1  ) 

1  30  1 

1  000  7 

AN  DA 

(7 

1  302 

24040  1  4 

ACC  M 

NDATB 

/  CAMERA  MAIN  (NOVEMBER 

6,1981) 

1  303 

21 640  1  3 

Z  E  R  M 

N  PAT 

1  304 

2111414 

MEMA 

N 

1  305 

5064 

RLSIf 

4 

/GET  LOW  ADDRESS 

1  306 

1  0  377 

AN  DA 

(  3  77 

/MASK  IT 

1  307 

24040  1  5 

ACC  M 

DATAI. 

/STORE  FOR  TRANSM  1  G"  1  )!J 

1310 

2111414 

MEMA 

N 

1311 

507  4 

R  I.SH 

1  4 

/GET  HIGH  ADDRESS 

1312 

1  0  377 

AN  DA 

(  3  77 

1313 

24040  1  6 

ACCM 

DATA!) 

1314 

21 64022 

ZERM 

DPMI 

1315 

21 11 724 

MEMA 

DOES 

1  31  6 

240400  1 

ACCM 

N  LI  ST 

1317 

1 1  00  0  6 

MEMA 

(6 

1  32  0 

2404000 

ACCM 

COMN 

1  32  1 

200 1 604 

JMS 

0  0M6 

1  322 

2111 640 

MEMA 

NBYT1 

/T  RANGE  HR  NO.  OF  BY  ZEE.  RECEIVED 

1  32  3 

2404  3  1  7 

ACCM 

N  BY  5 

/FOR  POSSIBLE  MODE  7  CALL. 

1  32  4 

7  1 

JMP 

START 

/ 


-52- 


1325 

3025725 

M0DE7 , 

ONEM 

0SMODE 

/SET  UP  FOR  SEN  OF 

132  6 

11  0020 

MEMA 

(20 

132  7 

3405726 

ACC  M 

0SWCNT 

1330 

3405727 

ACC  M 

@SWCNTO 

1331 

300  1700 

JMS 

@C  RLF 

1332 

300  1700 

JMS 

(QCRLF 

1333 

211 0317 

MEMA 

N  BY  5 

/NO.  OF  BYTES 

1334 

2405337 

ACC  M 

MOD?  1 

1335 

3001701 

JMS 

0UNPF 

1336 

4242 

SENDFA 

133  7 

0 

M0D7  1  , 

0 

1340 

0 

0 

i  34  1 

100  0  0  0 

1  00000 

1  342 

300  1  700 

JMS 

@C  RLF 

134  3 

300  1700 

JMS 

@C  RLF 

1  344 

71 

JMP 

START 

1345 

300  1  676 

M0DE8  , 

JMS 

@UNP 

1346 

4 

4 

1347 

0 

0 

1350 

574364 

TEXT 

%OCT 

1  351 

1 577 00 

-% 

1352 

300 1717 

JMS 

00  CT 

/PACK  OCTAL  ADDRESS  INTO  M0D8A 

1  353 

1  364 

M0D8A 

1  354 

27  11  364 

MMOA 

M0D8A 

/STORE  POINTER  FOR  CHANCE  WORDS 

1355 

2405424 

ACCM 

COUNT 

1356 

21  65426 

ZERM 

J 

/FOR  COUNTING  WORDS 

1  357 

300  1  700 

MO  1)8  1  , 

JMS 

0CRLF 

1360 

3001701 

JMS 

0UNPF 

/DISPLAY  CONTENTS  OF  NEXT  WORD 

1  361 

2330 

HEXTA 

/AS  5  HEX  CHARACTERS 

1362 

5 

5 

1363 

3777777 

3777777 

1  364 

0 

MO  DBA  , 

0 

1  365 

21 45364 

MON'M 

M0D8A 

/CAUSES  UNPF  TO  KEEP  GOING  WITHOUT 

1366 

11  0240 

MEMA 

(2  40 

/REINITIALIZING 

1367 

300 1 677 

JMS 

PTYPE 

/PUT  IN  SPACE 

CAMERA  MAIN  (NOVEMBER 

6,1981) 

1  370 

2000505 

JMS 

NIB 

/COLLECT  THE  NIBBLES 

1  371 

14  14 

N 

1  372 

0 

N  BY  8  , 

0 

1373 

2125424 

M  POM 

COUNT 

1374 

2125426 

M  POM 

J 

1375 

211 3372 

MEM  AZ 

N  BY  8 

/O  NIBBLES  MEANS  EXIT 

1376 

21  62000 

Z  ERZ 

1  377 

1  405 

JMP 

M0D8E 

1  400 

462005 

A-MZ 

(5 

/ 1  - 4  N I BS  MEANS  NO  CHANGE 

1  40  1 

1  357 

JMP 

M0D8  1 

1  402 

2111414 

MEMA 

N 

-53- 


1  90  3 

3905929 

ACC  M 

0COUNT 

1  909 

1  357 

JMP 

M0D8  1 

1  905 

21  1  1  926  M0D8E  , 

MEM  A 

J 

1  906 

300 1712 

J  MS 

PMULTP 

1  907 

5 

5 

1  91  0 

5021 

RASH 

1 

1911 

290931 7 

ACC  M 

N  BY  5 

1912 

7  1 

JMP 

START 

/NO.  OF  BYTES =  5/2  *  NO.  OF  WORDS 


/ 

/SCRATCH  STORAGE 


19  13 

0 

TEMP  , 

0 

1919 

0 

N, 

0 

19  15 

0 

FILM5, 

0 

19  16 

0 

N  DATB1  , 

0 

1917 

0 

PRTFLG, 

0 

1  920 

0 

J1  , 

0 

1  921 

0 

SIZE, 

0 

1  92? 

0 

I  TO  , 

0 

1  92  3 

0 

L  1  , 

0 

1  929 

0 

COUNT, 

0 

1  925 

0 

NBYTS, 

0 

1  926 

0 

J, 

0 

1927 

0 

NTRCK  , 

0 

1  930 

0 

FACT1  , 

0 

1  931 

0 

SUM  , 

0 

1932 

0 

K, 

0 

////// 

C  0  M  1 

M  A  N  D 

s 

UBROIJ  TINES 


///////////////// 


/ 

//  SUBROUTINE  SEND  (ALIAS  COM1) 
/ 

/ 

/ 

/ 

/ 


REVISION  —  NOVEMBER  25,1980 
AUTHOR  --  BARRETT  ,TB 

PURPOSE  —  SEND  DATA  FROM  CTL  TO  LISTENER(S) 
PARAMETERS  USED  —  NONE  PARAMETERS  IN  THE  PARAMETER 
TABLE  ARE  USED  ONLY  BY  CTL-SEND 


*1  500 


1  500 

0  COM  1  , 

0 

1  50  1 

3001719 

JMS 

1  502 

0 

T  A  RL  A 

150  3 

29 

29 

1  509 

3  0  0  1  66  5 

JMS 

1505 

3  0  0  1  66  5 

JMS 

0WCTL  /TRANSFER  TABLE  VALUES 


^MONITOR 

^MONITOR 


/CATCH  TABLE  TRANSFER  BYT 
/WAIT  UNTIL  CTL  IS  DONE 


/  CAMERA  MAIN  (NOVEMBER  6,1981) 

1506  100  1500  JMP  PC0M1 


//  SUBROUTINE  RECV  (ALIAS  COM?) 
/  REVISION  —  NOVEMBER  25,1980 


/  AUTHOR  --  BARRETT, TB 

/  PURPOSE  —  TRANSFER  DATA  FROM  TALKER  TO  CTL 
/  PARAMETERS  USED  --  NONE 


1507 

0  COM2, 

0 

1510 

300  1714 

JMS 

CTL 

1511 

0 

TABLA 

1512 

24 

2  4 

1513 

3  00  1  66  5 

JMS 

^MONITOR 

1514 

3  0  0  1  665 

JMS 

^MONITOR 

1515 

100  1  507 

JMP 

0COM2 

/ 

//SUBROUTINE  POLL  (ALIAS  COM4) 

/  REVISION  —  JANUARY  19,1981 
/  AUTHOR  --  BARRETT, TB 
/  PURPOSE  —  CONDUCT  A  SERIAL  POLL 
/  PARAMETERS  —  NONE 


(THE  STATUS  BYTE  IS  TYPED) 


1516 

0 

COM4  , 

0 

1517 

300 1 71 4 

JMS 

@W  CTL 

1  520 

0 

TABLA 

1521 

24 

24 

1522 

3  00  1  665 

JMS 

^MONITOR 

1523 

300  1  665 

JMS 

^MONITOR 

1524 

2405413 

ACC  M 

TEMP 

1525 

5024 

RASH 

4 

1526 

3  00  1  66  6 

JMS 

EXT 

1527 

2111413 

MEMA 

TEMP 

1530 

3  0  0  1  666 

JMS 

0HEXT 

1531 

2707540 

MMOMZ 

NCNT 

15  32 

1536 

JMP 

C0M4E 

1533 

11  00  44 

MEMA 

(44 

1534 

2405540 

ACC  M 

NCNT 

1535 

300  1  700 

JMS 

@CRLF 

1536 

300  1  665 

C0M4F.  , 

JMS 

^MONITOR 

1537 

100  1516 

JMP 

0COM4 

1  540 

0 

NCNT, 

0 

/STORE  STATUS 

/GET  READY  FOR  FIRST  HEX  DIGIT 


/ 

//  SUBROUTINE  NIC  I  (ALIAS  COM5) 

/  REVISION  —  DECEMBER  29,1980 
/  AUTHOR  --  BARRETT, TB 

/  PURPOSE  —  WRITE  DATA  FROM  NIC  TO  CTL 
/  PARAMETERS  USED  -- 


(1)  "I"  FOR  IMMEDIATE  DATA  (THE  DATA  TO  SEND  IS  IN  TABLE 
LOCATIONS  2  =>  10),  OR  THE  STARTING  ADDRESS  IN  NIC  OF  THE 
/BLOCK  OF  DATA  TO  BE  SENT  (CAN  NOT  RE  "I"  =  311  OCTAL). 


(11)  NO. OF  DATA  WORDS  (1  BYTE/WORD)  TO  BE  SENT  OR 

(12)  NO.  OF  256  BYTE  BLOCKS  TO  BE  TRANSFERRED  IF  (11  )  =  0 . 


/  CAMERA  MAIN  (NOVEMBER  6,1981) 

/  (18)  -  1  =  >  DATA  IS  PACKED  NIBBLES  (WHEN  UNPACKING  ADD  OCTAL  6 

/  TO  TRANSFORM  TO  ASCII  NUMBER. 

/  0  =>  DATA  IS  PACKED 

/  1  =>  DATA  IS  UNPACKED  (5 BYTES  IN  2  WORDS) 

/ 

/  NOTE  —  THE  STARTING  ADDRESS  IN  (1)  CAN  BE  -1  TO  INDICATE  THAT 
/  THE  UNPACKING  PROCESS  SHOULD  CONTINUE  FROM  WHERE  IT  [.EFT 

/  OFF  ON  THE  PREVIOUS  CALL  TO  UNPF. 


1  54  1 
1  542 
1543 
1  544 
1  545 
1  546 
1  547 
1  550 
1  55  1 
155  2 
155  3 
155  4 
1555 
1  55  6 

155  7 
1  560 
1  56  1 
1  562 

156  3 
1  564 
1  565 
1  566 
1  567 
1  570 
1  57  1 

157  2 
157  3 

1  574 
1  575 
1  576 
1  577 
1  600 
1  601 
1  602 
1  603 


0  C0M5, 
300  171  4 
0 
24 

3  0  0  1  66  5 
2  1  1 00  22 
2405577 
240566  3 
2 1  1  00  0  1 
4623 1 1 
1  55  5 
1 1  00  0  2 
2405600 
21  120  1  3 
1  56  1 
1  56  3 
2405576 
1  574 
2112014 
21  62000 
1  60  1 
2405664 
21  70000 
5 1 0400 
27 07664 
1  570 
2405576 

300  1701  C  0M5  1  , 

1  650 

0  N BY  TED, 
0  FLAGS , 

0  ST  ADD  5, 
4062  C0M53, 
300  1  66)5 
1  00  1  54  1 


0 

JMS 
T  ABLA 
24 
JMS 
MEM  A 
ACC  M 
ACC  M 
MEM  A 
A-MZ 
JMP 
MEMA 
ACC  M 
MEM  AZ 
JMP 
JMP 
ACC  M 
JMP 
M  EM  AZ 
Z  ERZ 
JMP 
ACCM 
Z  FRA 
A  +M  A 
MMOMZ 
JMP 
ACCM 
JMS 
SCTL 
0 
0 
0 

CTLCF 

JMS 

JMP 


0WCTL 


^MONITOR 
DU  M  1 
FLAGS 
SCTLC 
N  LI  ST 
(  "I 
#+  2 

( T  ABL  A  +  2 
S  T  ADD 5 
N  DAT 
//+? 

//♦  3 

N BYTES 
C0M5  1 
NDATB 

C0M5  3 
COUNTS 

(4  00 
COUNTS 
11-2 

N BYTES 
(9()  NPF 


/IT  IS  IMMEDIATE  MODE 


/DO  ADD  INSTEAD  OF  MULT 


‘••MSN  I  TOR 
(3  COM  5 


'///// 


///////// 
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► 


//SUB  ROUTINE  NICO  (ALIAS  COM6) 

/  REVISION  —  DECEMBER  29,1980 
/  AUTHOR  --  BARRETT, TB 
/  PURPOSE  —READ  DATA  FROM  CTL  TO  NIC 
/  PARAMETERS  USED  -- 

/  (1)  "I"  FOR  DATA  TO  BE  STORED  IN  TABLE  LOCATIONS  2  =>  10, 

/  OR  STARTING  ADDRESS  FOR  DATA  STORAGE. 

/  -1  MEANS  USE  LAST  ADDRESS  FROM  PRIOR  RUN 

/  (11)  NO.  OF  DATA  WORDS  TO  BE  TRANSFERRED  OR 


hi 


/  CAMERA  MAIN  (NOVEMBER  5,1981) 

/  (12)  NO.  OF  256  BYTE  BLOCKS  TO  BE  TRANSFERRED  IF  (11  )  =  0 . 

/  (18)  1  =>  DO  NOT  PACK  THE  DATA 


0  = 

>  PACK 

THE  DATA 

1  604 

0 

C0M6  , 

0 

1  605 

3001714 

JMS 

1  606 

0 

TABLA 

1607 

24 

24 

1610 

3  00  1  66  5 

JMS 

1611 

2 1  1  00  22 

MEMA 

1  612 

2405641 

ACC  M 

1613 

2  1  1  00  0  1 

MEMA 

1614 

462311 

A-MZ 

1615 

1617 

JMP 

1  6  1  f> 

11  000  2 

MEMA 

1617 

2405642 

ACC  M 

1  620 

2 1 1  2  0  13 

MEMAZ 

1  621 

1  62  3 

JMP 

1  622 

1  625 

JMP 

1623 

2405640 

ACC  M 

1  624 

1636 

JMP 

1  625 

2112014 

MEMAZ 

1  626 

2  1  6  2  00  0 

Z  ERZ 

1  627 

1  6  44 

JMP 

16  30 

2405664 

ACC  M 

1631 

2  1  7  00  0  0 

ZERA 

1  6  32 

5 1 0400 

A+M  A 

1  6  33 

2707664 

MMOMZ 

1  634 

1  6  32 

JMP 

16  35 

2405640 

ACC  M 

1  636 

300 1702 

COM 6 1 , 

JMS 

1637 

212  3 

MONITA 

1  640 

0 

N  BY  T  1  , 

0 

1  64  1 

0 

FLAGh , 

0 

1  642 

0 

ST ADD  6  , 

0 

1  643 

0 

0 

1  644 

3  0  0  1  665 

COM 6 3 , 

JMS 

1  645 

1  00  1  604 

JMP 

(5  BYTES/2  WORDS) 
@WCTL 


^MONITOR 
DUM  1 
FI.AG6 
NLIST 
("I 

lit? 

(TABI.A  +  2 
ST ADD 6 
N  [)  A  T 
//■*•  2 
//-*•  3 
N  BY  T 1 

COM 6  1  /NOT  0 

N  DA  TB 

COM63  /NOTHING  TO  TRANSFER 
COUNTS 

(400 
COUNTS 
It  -2 
N  BY  T  1 
PPAKF 


PMONI TOR 
(»C0M6 


L 
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/ 

/  SUBROUTINE  SCTL 
/  PURPOSE  —  SEND  BYTE  TO  CTL 

/  THERE  ARE  2  MODES  OF  OPERATION  SET  BY  SCTLC .  IF  SCTLC=-1 
/  THE  BYTE  IS  SENT  AS  ASCII  (60H  IS  ADDED  TO  ACC),  OTHERWISE 
/  IT  IS  SENT  WITH  NO  CHANGE.  SCTL  MAY  BE  A  RO  RTF.  D 
/  BY  TYPING  ANY  CHARACTER  ON  THE  TTY  IN  CASE  THE  CTL 
/  GETS  HUNG. 

*1  650 


1  650 

0 

SCTL, 

0 

1  65  1 

2 1  2  3  66  3 

MPOZ 

SCTLC 

1  652 

2  1  6  2  000 

7.  ERZ 

1  65  3 

5  1  00  6  0 

A  +  M  A 

(60 

1  654 

407  1 

CTLWR 

1  655 

6  064 

SCI  , 

C  T  LSK 

1  656 

1  66  0 

JMP 

SC2 

1657 

1  00  1  650 

JMP 

6>S  CTL 

CAMERA 

MAIN  (NOVEMBER 

6,1981) 

1  66  0 

6454 

SC2  , 

TT  YRF 

1  66  1 

1  655 

JMP 

SCI 

1662 

100  1  7  30 

JMP 

0 ABORT 

1  66  3 

0 

SCTLC  , 

0 

/  SCRATCH  STORAGE 

1  66  4  0  COUNTS,  0 

/ 

/  ADDRESSES 

HEXTA=2330 
T  ABLA  =  0 
SENDFA=4242 
SCTL.A=1  650 
MON  I  TA  =  2 1  2  3 
WP  NTD=  34  14 
PENDA:  1  77  0 

/  EXTERNALS 


1  665 

2123 

MONITOR 

t 

1  66  6 

2330 

HE  XT  , 

HEXTA 

1  66  7 

2257 

ECHO  , 

2257 

1  670 

2420 

OPENW, 

2420 

1  67  1 

2432 

0  PENR , 

2432 

1  67  2 

2  45  1 

CLOSE , 

245  1 

1  67  i 

2  4  70 

WR ITE , 

24  70 

1  67  4 

2  6  1 1 

R  E  A  DD  , 

2511 

1  675 

2  605 

PR TOCT, 

2605 

1  676 

2  650 

UNP, 

2  650 

1  677 

2  7  3 1 

TYPE, 

2  731 

1  7  00 

2(36 

CRLE  , 

2  7  36 

MONITA 
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1701 

2  750 

IJNPF  , 

2  750 

1702 

3074 

PAKF  , 

3074 

1703 

32  40 

PKR  , 

3240 

1  704 

3310 

DEC, 

3310 

1705 

3470 

N  IBB  IN  , 

3470 

1706 

3565 

TEKHEX, 

3565 

17  07 

40  1  0 

NICFIL, 

40  1  0 

1710 

4070 

SEARCH, 

4070 

1711 

4  1  60 

ZERTAB, 

4  1  60 

1712 

4  175 

MULTP, 

4  175 

1713 

4213 

DIVDE, 

421  3 

1714 

21  36 

WCTL, 

2136 

1715 

4313 

GETFIL , 

4313 

1716 

43  62 

PAUSE , 

4362 

1717 

437  1 

OCT, 

4371 

/  DEFINITIONS  AND  COMMON 

1720  7770  0AR01  ,  7770 

1721  777  1  0ARG2 ,  777  1 

1722  7  7  7  2  0ARG3,  7772 

1723  1770  PEND,  PENDA  /PAGE  END  FOR  SCRATCH  STORAGE 

1 7  24  100000  BUFS,  1  00000 

1725  4311  SMODE,  SENDFA+47 

1726  4310  SWCNT,  SENDFA+46 

1727  4312  SWCNTO,  SENDFA+50 

1  730  4  700  ABORT,  4700 

1  731  7760  SYSTRT,  7760 


/  CAMERA  MAIN  (NOVEMBER  6,1981) 


17  32 

3  22  3 

PCOUNT , 

322  3 

/  CONSTANTS 

17  33 

606251 

PRI, 

606251 

17  34 

3000 

T  3  , 

3000 

1735 

40000 

PA  1  , 

40000 

/PAUSE  CONSTANTS 

1736 

40000 

PA2  , 

40000 

1737 

1  00  0  0  0 

PA 4  , 

1  00000 

1  740 

2  00  0 

BFSZ  , 

2  00  0 

/ C TL  BUFFER  SIZE 

///////////  SERVICE  SUBROUTINES  ///////////// 


/  CAMERA  MAIN  (NOVEMBER  6,1981) 
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RUE  S 

1  724 
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2 
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1  672 
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4  1  7 

CO  DM  5 
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C0M1 

1  500 
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1  507 
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15  16 
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1  536 

C0M5 

1  54  1 

COMB  1 

1  57  4 

COMB  3 

1  60  1 

COMO 

1  604 

COM  6  1 

1636 

C0M6  3 

1  644 

COMB 

2  57 

COMN 

0 

C QMS TO 

34  2 

COUNT 

1  424 

COIJNTN 

5  4  7 

COUNTS 

1  66  4 

CRLF 

1  7  (XI 

C  r  A  RL  F. 

24 

C  TL 

1 

CT  ICE 

4062 

CTLRD 

4  4  0  6  (( 

C  T  LR  DC 

4  4  0  66 

CTLRS 

4  0  7  2 

C  TLSK 

6  06  4 

CTLW  R 

407  1 
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1  6 

DATAL 

1  5 

DEC 

1  704 

« 
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WRITE  1  673  XCOORD  3  ZERTAB  1711 

$ 


/  CAMERA  MAIN  (NOVEMBER  6,1981) 
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II 


/  FUNCTION  ERROR 
//  FUNCTION  ERROR 
/  REVISION  --  NOVEMBER  6,1981 

/  PURPOSE  —  ERROR  13  THE  "ABORT"  ROUTINE  WHICH  IS  ENTERED  WHEN  THE  SYSTE 
/  "HUNG".  THE  USER  CAN  TYPE  ANY  CHARACTER  ON  THE  CONSOLE  WHICH  CAUSES 
/  ERROR  TO  START.  ERROR  FIRST  CAUSES  NICCTL  TO  INTERRUPT  AND  TO  EXECUTE 
/AN  INTERRUPT  SUBROUTINE  WHICH  STORES  THE  "STATE"  OF  NICFIL  IN  RAM  STARTI 
/  AT  80C  AND  TO  THEN  REINITIALIZE  THE  BUS  AND  WAIT  FOR  COMMANDS  FROM  NIC. 
/ERROR  GATHERS  THE  STATE  DATA  PLUS  THE  CONTENTS  OF  THE  CTL  COMMAND  TABLE 
/AND  PRINTS  THIS  DATA  ALONG  WITH  IDENTIFIERS  AS  FOLLOWS: 

/ 

/  ROW  1  ROW  2 


/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 


0  =  COMM 

1  =  NLIST 

2  =  LI  SIP 

3  =  LISTS 

4  =  LIS2P 

5  =  LIS2S 

6  =  LI  S3  P 

7  =  LIS3S 

8  =  TALKP 

9  =  TALKS 
A  r  EOSC 
B  =  NDAT 
C  =  NDATB 

D  =  DAT  ADD ( LO) 
E  =  DAT  ADD (HI) 
F  =  DUM1H 
0  =  DIJM1H 

1  =  MESS 

2  =  ST  ATI 

3  =  STAT2 

4  r  RET  ADD ( LO) 

5  =  RETADD(HI) 

6  =  LCOMM 

7  =  MAXBLK 

8  =  STACKP(LO) 

9  =  STACKP(HI) 
A  =  COUNT(LO) 

B  =  COUNT! H  I ) 


I.  =  L  REGISTER 
H  =  H  REGISTER 
PC:  PROGRAM  COUNTER 
SP:  STACK  POINTER 
A  :  A  REGISTER 
C  =  C  REGISTER 
B  :  B  REGISTER 
E  :  E  REGISTER 
D  :  D  REGISTER 
0  =  8291  INTI 

1  :  8291  INT2 

2  =  8291  ADRST 

3  =  8291  ADR01 

4  =  8291  E  0  SR 

5  =  8292  INTST 

6  =  8292  ERROR  FLAG 

7  =  8292  CONTROLLER  STATUS 

8  :  8292  BUS  STATUS 


C  TLSK  =  606  4 
CTLRDC:44066 


-62- 


C  TLCF  =  4062 
C  TLRS  =  4072 
CTLW  R  =  407  1 


*2020 


2020 

4071 

ERROR, 

CTLWR 

/CAUSE  INTERRUPT 

/  PRINT 

THE  FIRST  HEADER 

1  TO  GIVE 

:  CTL  TIME  TO  INITIALIZE. 

2021 

3000376 

JMS 

6>CRLF 

2022 

3000375 

JMS 

@UNP 

2023 

70 

70 

//  FUNCTION  ERROR 

2024 

1 

1 

2025 

200021 

TEXT  XO 

1 

2026 

2200 

2 

2027 

230024 

3  4 

2030 

2500 

5 

2031 

260027 

6  7 

2032 

3000 

8 

2033 

3  1  00  4  1 

9  A 

2034 

4200 

n 

2035 

430044 

C  D 

2036 

4500 

E 

2037 

460020 

F  0 

2040 

21  00 

1 

204  1 

22  00  23 

2  3 

2042 

2400 

4 

2043 

250026 

5  6 

2044 

2  700 

7 

2045 

3000  31 

8  9 

204  6 

4  100 

A 

2  04  7 

4200  77 

B  % 

2050 

3000403 

JMS 

PZEHTAB  /ZERO  TH 

2  05  1 

0 

T  ABLA 

2052 

11  00  5  7 

MEMA 

(57 

2053 

34044  1  3 

ACC  M 

0NDAT 

2054 

1 1  00  1  0 

MEMA 

(  1  0 

2055 

34044  1  4 

ACC  M 

0DATAH 

2056 

21  1  0407 

MEMA 

BUFS 

2057 

34044  1  5 

ACC  M 

PNLIST 

2060 

11  0006 

MEMA 

(6 

206  1 

34044  16 

ACC  M 

flCOMN 

2062 

3000404 

JMS 

PC0M6 

206  3 

11  00  34 

MEMA 

(  34 

2064 

2404  1  73 

ACC  M 

P  R  HEX  1 

2  065 

21  1  04  07 

MEMA 

B'lFS 

2066 

2404 1 75 

ACC  M 

P  R  HEX 2 

2067 

2000 1 64 

JMS 

P  R  HEX 

2  070 

3000376 

JMS 

@C  RLF 

2  07  1 

3000375 

JMS 

PIJNP 

-63- 


//  FUNCTION  ERROR 


21  1  3 

21  44 1 75 

M  ON  M 

P  RHEX2 

21  1  4 

2000 1 64 

JMS 

PR  HEX 

21  1  l3 

3000376 

J  MS 

PC  RLF 

21  1  6 

1  000402 

JMP 

PARORT 

/ 

//FUNCTION  MONITOR 
/  REVISION  —  NOVEMBER  2,1981 
/  AUTHOR  —  BARRETT, TB 

/  PURPOSE  —  "MONITOR"  INPUT  FROM  C.  T  L.  IT  READS  DATA  FROM  Oil. 

/  AND  JUMPS  TO  ERROR  IF  SRVC  BIT  IS  SET.  OTHERWISE  IT 

/  RETURNS  THE  BYTE  READ  IN  ACC. 

/  IF  THE  USER  TYPES  A  CHARACTER,  MONITOR  WILT  .HIM P  TO  ERROR. 

/ 

SR  VC  =  400 


2123 

0 

MONITOR , 

0 

2124 

6064 

MON  1  ,  CTLSK 

2 1  2  6 

1  12 

JMP 

MON  2 

2126 

44066 

CTLRDC 

2127 

2400 

A  NDZ 

( SRVC 

2130 

2000020 

JMS 

ERROR 

21  31 

1 000 123 

JMP 

PMONITOR 

2132 

6454 

MON  2,  TTYRF 

21  33 

124 

JMP 

MON  1 

21  34 

444  5  3 

R  DTT  Y 

21  35 

20 

JMP 

ERROR 

/ 

//SUBROUTINE  WCTL  ( ST  ADD  ,  N  BY  TES  ) 
/  REVISION  —  JANUARY  22,1981 
/  AUTHOR  --  BARRETT  ,TB 


I 


/  PURPOSE  --  TRANSFER  N BYTES  OF  DATA  FROM  NIC  MEMORY  STARTING  AT 
/  ADDRESS  STADD  TO  CTL 

/  PARAMETERS  — 

/  STADD  STARTING  ADDRESS  OF  DATA  BLOCK  IN  NIC 

/  NBYTES  SIZE  OF  DATA  BLOCK  IN  BYTES  (1  BYTE/NIC  WORD 

/ 


2136 

0 

WCTL, 

0 

2137 

3  1  644  1  7 

Z  ERM 

PSCTLC 

21  40 

3110136 

MEM  A 

@W  CTL 

21  4  1 

2404  1  55 

ACC  M 

POINT 

/POINTS  TO  DATA 

BLOCK 

21  42 

2124  1  36 

MPOM 

WCTL 

/GET  COUNT 

21  43 

31 1 0136 

MEMA 

0WCTL 

21  44 

2404156 

ACC  M 

COUNT 

2145 

2124136 

MPOM 

WCTL 

/SET  FOR  RETURN 

FROM  WCTL 

2146 

3 1 1  0  1  55 

WCTL1  , 

MEMA 

PPOINT 

/GET  NEXT  DATUM 

21  47 

3000406 

JMS 

PSCTL 

21  50 

2124155 

MPOM 

POINT 

21  51 

27061 56 

MMOMZ 

COUNT 

21  52 

146 

JMP 

WCTL1 

21  53 

4062 

CTLCF 

/CLEAR 

DONE  ON  I.  A  ST  WRITE 

21  54 

1000 1 36 

JMP 

PW  CTL 

21  55 

0 

POINT, 

0 

21  56 

0 

COUNT, 

0 

/ 

/ 


//  FUNCTION  ERROR 

21  57 

0  RCTL, 

0 

2160 

6064 

CTLSK 

2161 

1  60 

JMP 

//-I 

21  62 

44066 

CTLRDC 

2163 

1000  1  57 

JMP 

PRC 

/  SUBROUTINE  P  R  HEX 

/  PURPOSE  —  THIS  IA  SUBROUTINE  TO  SET  UP  CALLS  TO  UNPF.  IT  I 


USED  WITH  ERROR 

21  64 

0 

PR  HEX  , 

0 

21  65 

30244  1  0 

ON  EM 

PSMODE 

21  66 

1 1  00  5  0 

MEMA 

(50 

/SO  NO 

CK  LF 

21  67 

34044  1  1 

ACC  M 

PSW  CNT 

21  70 

34044  12 

ACC  M 

PSWCNTO 

2171 

3000405 

JMS 

PUN  PF 

2 1  7  2 

4  2  4  2 

SE  NDFA 

21  7  3 

0 

P  R 1 1 E  X  1  , 

0 

/NO.  OF 

BYTES 

TO  UNPACK 

2174 

0 

0 

/UNPACK 

21  75 

0 

PR  HEX 2 , 

0 

/SET  TO 

1  00000 

FIRST  CALL,  -1  NEXT 

21  76 

1 000 1 64 

JMP 

PPR  HEX 

/ 


-65- 


t 


22  57 

0 

E  C  H0  , 

0 

22  60 

200027 1 

JMS 

READ 

22  61 

462221 

A-MZ 

(221 

22  62 

2  1  6  2  000 

Z  ERZ 

22  6  3 

1000402 

JMP 

PABORT 

22  64 

4622  07 

A-MZ 

(207 

22  65 

2  1  6  2  00  0 

Z  ERZ 

22  66 

1  000420 

JMP 

PCAI.I.S 

22  67 

300040  1 

JMS 

PTYPE 

22  70 

1 000267 

JMP 

PEC  HO 

22  7  1 

0 

HEAD, 

0 

22  7  2 

6464 

TTYRE 

22  7  1 

272 

JMP 

//-I 

22  74 

4446  j 

R  DTT  Y 

22  76 

1  00  0  2  7  1 

JMP 

PREAD 

//  FUNCTION  MI  X  I 

/  PURPOSE  CON 
/  ASl 

NEXT.  O 

ANDA 
A  fMA 
ACCM 
M-AA 
Gh  IP 
JMP 
MENA 
A*  MM 
MEM  A 
J  MS 
JMP 


CUNVER1  4 
ASl  I  I  AND 

(  1  > 

< 1*60 
TEMP 
(2/1 
ac:  1  9 
*  + 

<  / 

TEMP 
TEMP 
a)  I  YPE 
•j)HE  X  T 


PI  I  Ht  X 
TYPE  I  I  . 


(LET  1  JUS!  IF)  ID>  IN  ACC 


/  TEMP  STORAGE 
FEMP.O 


TABLE 


SENDFA  =  4242 
T  A  BLA  =  0 


/ 

/ 

/  EXTERNALS 


23 

2650 

UNP, 

2  650 

2376 

2736 

CRLF  , 

2736 

23  77 

2  605 

PR  TOC T, 

2  605 

2400 

7600 

SYSTRT, 

7600 

240  1 

2731 

T  YPE  , 

2  731 

2402 

4  700 

ABORT, 

4  700 

240  3 

4  1  60 

ZERTAB , 

4  1  60 

2404 

1  604 

C0M6  , 

1  604 

240b 

2  750 

U  N  PF  , 

2750 

2406 

1  650 

SCTL, 

1  650 

DEFINITIONS  AN!)  COMMON 

2407  100000 

BUFS, 

1  00000 

2410 

4311 

SMODE, 

SENDFA+47 

2411 

4  310 

SWCNT, 

SENDFA  +  46 

24  12 

4313 

SWCNTO  , 

SE  NDFA  +  50 

2413 

1  3 

NDAT, 

T  A  BL  A  13 

24  14 

1  6 

DATAH, 

TABLA+1 6 

2415 

1 

NLIST, 

TABLA+1 

24  1  6 

0 

COMN  , 

TABLA  +  O 

FUNCTION 

1  ERROR 

2417 

1  66  3 

SCTLC  , 

166  3 

2420 

71 

CALLS, 

7  1 

//  FUNCTION  ERROR 

ABORT  2  40?  BUFB  2  407  CALLS  2  420 

COMN  2416  COUNT  2166  CRLF  2 3 76 


C  0M6 
CTl.CF 


CTLRDC 

^44066 

CTLRS 

407? 

DATAH 

2414 

ECHO 

22  51 

H  C 1 

2352 

HEXT 

2330 

HTOP 

2  355 

HTYPE 

2345 

MON  2 

213? 

MONI TO 

2123 

POINT 

?  1  55 

PRHEX 

2164 

PRTOCT 

2  3  77 

RCTL 

21  57 

SCTLC 

24  17 

SENDFA 

4242 

SWCNT 

24  11 

SWCNTO 

24  1? 

TYPE 

240  1 

UNP 

2  3  75 

WCTL1 

2146 

ZERTAB 

2403 

$ 


//  FUNCTION  ERROR 


CTLSK 

6  064 

CTI.WR 

407  1 

ERROR 

2020 

HC 

2  3  5  1 

HP 

?  3  5  3 

irr 

?  3  5  4 

K  17 

2  3  50 

MON  1 

212  4 

N  DA  T 

24  13 

N LI  ST 

24  1  5 

PRHEX 1 

?  1  7  3 

PRHEX? 

21  75 

READ 

??  7  1 

SOIL 

2406 

SMODE 

24  10 

SR  VC 

400 

SYSTRT 

2400 

T  ABl.A 

0 

U  N  PF 

2  405 

WCTL 

213  6 

II 


E// 
// 
//: 
/  Rl 
/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 


I/O 

I/O 


AUTHOR 

PURPOSE 


'OUT 

IN 

ES 

0 

PE 

NW 

,  OPE 

OUT 

IN 

ES 

0 

PE 

NW 

,  0  PE 

E  0 

PE 

NW 

-  J 

AN 

UARY 

2 

6, 

198  1 

- 

BARRETT 

»T 

6 

CLOSE .WRITE , READD 


—  OPENS  A  FILE  (FOR  WRITING)  BY  LOCATING  THE  NEXT  AVAILABLE 


OARG  1 
'  0  ARG2=  0 . 
,  0  P  K  NW 


/ 

// 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 


TRACK  AN 

D  AMOUNT  OF  SPACE  AAILABI.E. 

PARAMETERS  —  NONE. 

TRACK 

AND  SPACE  ARE  RETURNED  IN 

(7770) 

AND  0ARG2  (7771)  RESPECTIVELY,! 

IF  0ARG2  IS  SET 

TO  THE 

NO.  OF  WORDS  IN  THE  FILE 

WILL  FIND  THE  F 

IRST  AVAILABLE  SPACE. 

NOTE  -  SET  OARG 

1  TO  0 

BEFORE  CALLING. 

420 

2420 

0  OPENW, 

0 

2421 

2000527 

JMS 

DIRFIN 

2422 

31  44560 

MON  M 

PDISOLV 

2423 

3000555 

JMS 

eniRFUN 

2424 

1 

1 

2425 

2 

2 

2426 

2567 

NOFIL 

/POINTS  TO  A  VALUE  OF  0 

2427 

24  10000 

ACCA 

2430 

2000545 

JMS 

DI ROUT 

2431 

1 000420 

JMP 

@0  PE  NW 

SUBROUTINE  OPENR(  FILNAM) 

REVISION  —  NOVEMBER  12,1981 
AUTHOR  --BARRETT, TB 

PURPOSE  —  OPENS  A  FILE  FOR  READING  BY  RETURNING  THE  STARTING 
TRACK, FILE  SIZE  AND  LOCATION  IN  CORE  FOR 
STORAGE  (AS  GIVEN  BY  THE  DIRECTORY) 

ARGUMENTS  — 

FILNAM  -  2  WORD  PACKED  FILE  NAME  OF  THE  FILE  TO  BE  0  PENNED. 
LOCATIONS  OARG1  ,OARG2,OARG3  CONTAIN  TRACK, SIZE  AND  CORE  LOCATION 


FOR 


THE  FILE 
2432 


RESPECTIVELY.  IF  THE  FILE  IS  NOT  FOUND,  OARG1  CONTAINS  -1 


0  OPENR, 


0 


2433 

311 0432 

MEMA 

@0  PE  N  R 

2434 

2404565 

ACC  M 

F  ILNM 

2435 

2124432 

M  POM 

OPENR 

2436 

24  1  0000 

ACCA 

2437 

24  1  0000 

ACCA 

2440 

21244  32 

M  POM 

0  PENH 

244  1 

2000527 

JMS 

DIRFIN 

2442 

3000555 

JMS 

PDIRFUN 

244  3 

1 

1 

244  4 

2 

2 

/FILENAME 


/SET  RETURN  ADDRESS 


-69- 


PO  ARC.  1  / F  r L E  DOFS  NOT  KXIF.T 

DIROUT  /RESTORE 
POPE  NR 


0445  2565  FILNM 

2446  31  44562  M  ON  M 

2447  2000545  JMS 

2450  1000432  JMP 

/ 

//  SUBROUTINE  CLOSE  (  F  ILN  AM) 

/  PURPOSE  —  ADD  A  FILE  TO  THE  DIRECTORY 
/  BY  SETTING  OARG?  (777  1  )  TO  0  THE  FILE  WILL  BE  DELETED 

/  PARAMETERS  - 


E//  I/O  SUBROUTINES  0 PE NW , 0 PF N R , CLOSE , W R ITE , R E ADD 
/  FILNAM  -  6  CHAR.  (PACKED  FORM)  FILE  NAME  (2  WORDS) 

/  CONTNO!  RETURNS  AFTER  THE  FILE  NAME 

/  BEFORE  CALLING  PUT  THE  STARTING  TRACK  IN  7770  AND  THE 


EILF 

:  SIZE  (WORDS) 

IN  7  77  1  . 

0 A R G  3  AND  THE 

START  ING 

2  4  5  1 

0  CLOSE, 

0 

2452 

3  1  1  045  1 

MEM  A 

245  I 

2404565 

ACCM 

2  4  5  4 

2124451 

MPOM 

2  4  55 

24  1  000  0 

ACCA 

2  4  56 

24  1  00  00 

ACCA 

2  457 

21244  5  1 

MPOM 

2460 

200052 7 

JMS 

2  4  6  1 

3000555 

JMS 

24  6  2 

1 

1 

2  4  6  I 

1 

1 

246  4 

2  565 

F  ILNM 

2  4  65 

2  4  10000 

ACCA 

2  4  66 

2000545 

JMS 

2  4  67 

1 000451 

JMP 

THE  CODE  ADDRESS  CAN  BE  PUT  IN 
ADDRESS  IN  SYSTRT. 

P CLOSE  /TRANSFER  FILENAME 
F  ILNM 
C  LOSE 


CLOSE 

D I  REIN 
P  D  I  R  FU  N 


D I  ROUT 
* ‘•CLOSE 


/ 

//  SUBROUTINE  WR  ITE  (  IT,  S  17.  E  ,  I  START  ) 

/  PURPOSE  —  SIMPLE  WRITE  TO  DISK  USING  DEMON  II  DISK 
/  PARAMETERS  — 

/  IT  -  STARTING  TRACK 

/  SIZE  -  NO.  PE  WORDS  IN  BUFFER  (STARTS  AT  I  START) 

/  I  START  -  STARTING  ADDRESS  OF  BLOCK  TO  TRANSFER. 


24  7  0 

0  W  R  I  TE  , 

0 

2  4  7  1 

31  1  04  70 

MEM  A 

MW  R  I  TE 

2  4  7  2 

2  5  1  05  I  0 

A  +M  A 

D  NO 

24  7  3 

7  4  04  504 

ACCM 

IT 

2  4  7  4 

212447 0 

MPOM 

W  R  I  IE 

2  4  75 

31  1  04  70 

MEM  A 

PWR  I  TE 

24  76 

2404505 

ACCM 

S  1 7  E 

2  4  77 

2124470 

MPOM 

W  R  I  TE 

2500 

3  1  1  04  7  0 

MEM  A 

PWR  I  TE 

2  50  1 

2404506 

ACCM 

I  START 

2  50  2 

212 44 70 

MPOM 

W  R  I  TE 

-70- 


// 


/ 


2503 

3000556 

JMS 

9  DISK 

2504 

0 

IT, 

0 

2505 

0 

S  1 7  E  , 

0 

2506 

0 

I  START, 

0 

2507 

1  0004  70 

JMP 

<s>WRITE 

2510 

100  0  0  0 

D  NO  , 

1  00  000 

SUBROUTINE  READD  (IT, 

SIZE) 

AUTHOR 
/  PURPOSE 
/ 


NOVEMBER  29,  1  980 
BARRETT ,TB 

READ  TRACK  IT  OF  SIZE  WORDS  INTO  BUFFER 


/ 

THAN  A 

TRACK,  MORE  THAN  1  TRACK  WILL  1 

2511 

0 

READD , 

0 

2512 

3110511 

MEM  A 

§ R  E  ADD 

2513 

2  5  1  05  1  0 

A+M  A 

D NO  /ADD  THE  DISK 

2514 

2404523 

ACC  M 

ITT 

2515 

2124511 

MPOM 

READD 

E//  I/O 

SUBROUTINES  OPFNW.OPENR 

.CLOSE, WRITE, READD 

2516 

31 1  05  11 

M  EM  A 

9 R  E ADD 

2517 

2404524 

ACC  M 

SIZ7 

2520 

2124511 

MPOM 

RE  ADD  /SET  RETURN 

2521 

21  70000 

Z  ERA 

/SIGNALS  READ 

2522 

3000556 

JMS 

6  DISK 

2523 

0 

ITT  , 

0 

2524 

0 

SIZ 7.  , 

0 

2525 

1  00  0  0  0 

1  00  000 

2526 

/ 

1  0005  11 

JMP 

F*  R  E  ADD 

2527 

0 

DIRFIN , 

0 

/READ  OUT  3000-7600, RE 

2  510 

2030000 

ON  FA 

25  31 

3000556 

JMS 

bdisk 

2532 

1  00  00  1 

1  00  00  1 

25  33 

4  600 

4  600 

2534 

3000 

3  00  0 

25  35 

31  74557 

Z  ERMA 

P  D  ERR  F 

25  36 

3000556 

J  M  S 

9  D  I SK 

25  37 

1  00  0  0  7 

1  00  00  7 

2540 

6  00 

600 

254  1 

7  00  0 

7  00  0 

2  54^ 

24  1  00  00 

ACCA 

2  54  3 

31  6456  1 

7  FRM 

PDEVDET 

2  544 

1  00  05  2  7 

JMP 

6>DI  RFTN 

// 

2545 

0 

D I  ROUT , 

0 

/READ  BACK  3000-7600 

2 ',4  0 

7 1 7466 7 

Z  ERMA 

P  D  ERR  F 

2  54  7 

30n0656 

J  M  S 

6>DISK 

2  56  0 

1  00  0  0  1 

1  00  00  1 

266  1 

4  6  00 

4600 

IN  DIRFtIN 


255  2 

3  00  0 

3000 

?65  3  24  i  on  on 

ACCA 

2554  i  oons  J15 

.IMP 

flp  r  ROIJT 

DEMON 

II  REFERENCES 

2  55  5 

7  000 

D I  R  FU  N  , 

700  0 

2  55  6 

76  12 

DISK  , 

76  1? 

2657 

77  04 

DERRF  , 

77  04 

2  560 

77  51 

DISOLV, 

77  5  1 

.7  56  1 

7764 

DEVDET , 

7764 

2  56? 

777  0 

0  ARC  1 , 

7770 

2  56  3 

77  7  1 

0ARG2, 

77  7  1 

2564 

7772 

0  A  RG  3  , 

77  7  2 

SCRATCH 

STORAGE 

2  565 

0 

F  II.NM  , 

BLOCK 

T> 

2  567 

0 

NOFIL, 

0 

E//  I/O  SUBROUTINES  OPKNW, 


CLOSE 

245  1 

DERR  F 

D  [  R  Ell  N 

2  55  5 

0 I  ROUT 

1)  NO 

2  5  1  0 

F  ILNM 

I  IT 

2  52  3 

NOFIL 

OAHG  3 

2  56  4 

OPE  NR 

S  1 1  E 
$ 

2  505 

s  in. 

H//  1/0 

SUBROUTINES 

OPENW. 

0  PE  NR , CLOSE 

.WRITE  ,  READ!) 

2  55  7 

DEVDET  2  50  1 

2  545 

DISK  ,'V'h 

2  565 

I  STAR'l  2  506 

2  56  ? 

0  A  RO  1  , 1 55 2 

2  4  32 

OPENW  y  42  0 

2  524 

WRITE  ? 4  70 

OPE  NR , CLOSE 

,  W  R  I  TE  ,  R  !•.  A  > 

I.  I  REIN 

527 

I)  I  Si  .  V 

2  66  0 

!  r 

?  50  4 

■  ■  A  R  G  2 

2  56  3 

I-  >■  A  !  >1 

2  5  1 1 

//  FUNCTION  PRTOCT(X) 

//  FUNCTION  PRTOCT(X) 

/  REVISION  —  JANUARY  22,1931 


/  A 
/  P 
/ 

/ 

*2  605 


AUTHOR  --  BARRETT, TB 
PURPOSE  —  PRINT  THE  OCTAL 


VALUE  OF 


: ON TENTS  OF 


2  6  05 

0 

PR TOCT, 

0 

2606 

5  0  4  2 

LLSH 

2 

2607 

24050O7 

ACC  M 

TEMP 

2610 

1  00  0  3 

A  N  DA 

(3 

2611 

510260 

A  +  M  A 

(2  60 

26  12 

2000731 

JMS 

TYPE 

2613 

11  00  0  7 

M  EM  A 

(7 

2614 

2405064 

ACC  M 

COUNT 

2615 

2707064 

PRT'DI  , 

MM  OMZ 

COUNT 

2  6  16 

6  20 

JMP 

#  +  2 

2617 

6  27 

JMP 

P  R  TOO 

2620 

2111 067 

M  EM  A 

TEMP 

2621 

5  0  4  3 

LLSH 

3 

2  622 

2405067 

ACC  M 

TEMP 

2623 

i  00  0  7 

A  N  DA 

(7 

2624 

5 1 02b J 

A  +  M  A 

(2  60 

2  6  2  6 

2  0007  1 1 

J  M  S 

TYPE 

2  b  2  6 

6  1  5 

JMP 

PR  T01 

2  6  2  7 

11  0.21  5 

PR T 02  , 

MEM  A 

(  2  1  5 

2  6  8!) 

2 0007 31 

JMS 

T  Y  P  E 

2  6  31 

110  212 

M  EM  A 

(  2  1  2 

2  b  32 

2  00  0  ?  3  1 

JMS 

TYPE 

2  fc  33 

1  000  6  05 

JMP 

mpr  rocr 

COUNTER 


//  SUBROUTINE  IINP(N 
/REVISION  --NOVEMBER 
/AUTHOR  --  BARRETT 
/PURPOSE  --  UN  PAR 

AN  OPTIONAL 

/ 

/PARAMETERS  — 

/  NO  No. 

/  TEXT  IS  AOS'; 

/  PE  TURN  EL  AS 

/  'NI)!C  Or.'' 

/  TEXT  THE 


C ,INDIC .TEXT  ) 

22 , 1 980 
,  T  B 

PACKED  ASCII  AND  SENDS 
OR/LE  IS  SENT  A I. SO. 


T-<  TTY  FOR  PR  IN' 


IF  CHARACTERS  IN  THE  P  A  0  Err  TEXT.  IF  0 
MFD  TO  BE  TERMINATED  WITH  77  (i)  AND  N 
HI!:  NO.  OF  TEXT  CHARACTERS,  <  NOT  INCI.HI' 
NO  CH/LE,  1  -  >  CR/LF  AT  end  OK  TEXT. 
PACKED  TEXT. 


w 


I' 

► 

f 

► 

\ 


1 

7  66  i 

7 1 1 0660 

M  KM  A 

')  NP 

/ST- OK  K 

AIT)  RK7.S 

OF  S  ' 

7  667 

7404  777 

ACCM 

N  u 

7  65  3 

7174660 

MPOM 

UNP 

/  s  r  ;  f<  k 

INKS 

7  664 

3 1 1 0660 

M  KM  A 

AH  1  N  P 

7  665 

7406  303 

ACCM 

I  NO  I  7 

i 

7  66  b 

7074730 

ON  KM 

I  N  1)  I  X 

/  S  K  T  p 

H  INI /NO  PR 

i  n  t  a  t  .  h 

7 1  j  5  7 

71 64776 

7.  K  R  M 

N  CO 

/  S  K  T  C 

1  i  A  R  AC  TK  l;. 

7  OiNTKP  I'  )  o 

7  6r>  0 

7076064 

ON  KM 

C  0  (.!  N  T 

/IN!  n 

A  1 . 1  /.  K  1,7 

0  66  1 

770/064 

L  00  P , 

MMOMZ 

m  0 1 1 N  I 

/ 1  i  K  C  h  K 

ML  NT  C  HJN 

y  U  m  \  [' 

//  FUNCTION 

■>KT0CT(  X  ) 

u 

7 66  7 

67  1 

JMP 

L  1 

/IF  !7 

F  7,  TYPK 

C  ii  A  A  ;  :■  R 

0  66  3 

1 1  000  3 

M  KM  A 

(3 

/  K  K  I N  ! 

n  A 1 . 1  Z  K  c 

Oil  NTH  h 

0  66  4 

7406064 

ACCM 

CO  iJN  T 

7  66  6 

7174660 

MPOM 

UNP 

/ P 0  IN  7 

To  NKXT 

7  77  IN  r.  XT 

7  66  6 

3 1 1 0660 

M  KM  A 

6'  UNP 

/OF  r  W 

o  iC  '  ANL  S 

i !  I  f*  T  !  I 

7  66  7 

606  0 

Li.SU 

8 

7  67  0 

7406730 

ACCM 

WORD 

/STORK 

I  r  F  (. i  R  1-' 

HR  i'll  4  F  >.  .  K 

• 

7  6/  1 

1  00  77 

1-  1  , 

A  N  I.'A 

(77 

/  M  A  77 

o  I.SI'S 

.'7/7 

4  6  70  /7 

A-MZ 

(77 

/ c hi-.  >: 

FOR  K  N 1  > 

:■  I  :■  X  . 

’77  < 

67  6 

J  M  P 

If  +  7 

7  7/4 

770 

JMP 

K  N  i  > 

'  f  M  , 

'  1  7  777  / 

M  K  M  Z 

*JNC 

’ ' 

7  70 

,i  Mi' 

II  +  7 

2 

■  r 

7  7b 

■  J  ''I  P 

(.  < 

11  : 

.  7  ■.  1  *,7 

A  '  7 '  M 

IF  ML 

i 

•  1  1  7  7  .  ■  7 

M  Kw  A 

(•'  N  0 

' 

7  f> 

A  -  ‘•V 

i.  ,;r 

/  ii  K  OK 

T1  -  7  i-  [•  I 

:•  >, 

f'  *  §*■>: 

JMP 

a  + ; 

'  ■. 

.  ’  r  4  7  i  » 

1  K  h  M 

I  N  [> !  X 

/  I  F  ’  N 

•  s  y  '  ;  ;  i 

!  i  •  '  /•.  A 

f 

;  . 

71 1 100/ 

M  K  M  A 

TKMP 

■  - 

7  1  .  el  6  ! 

[  1 

1  •  1  » 

M  K  M  L 

I  N  i>  1  <: 

/  IF  ' , 

:  Ji '  T  P  h 

’  \  ] 

!  » 

7  1 1 

JMP 

0  +  7 

t  1  4 

JMP 

II  +  4 

•  ;  i 

.  ’  •.  > 

M  p !  jM 

NCC 

’  ) 

•  1 

A  +  MA 

(  j  'U  i 

'  ■  ■  f,'  '■ 

:  \  : 

A  '  ‘  ; 

• 

.  ■  ;  .  /  •:  1 

J  M  7, 

:  yp>- 

•  •  ■. 

•  ’11  '  < 

M  !■  M  A 

/J  i  )  K  ! 

'  1  » 

•  »  :  U  » 

•  t  ■  *  ,  ..  ^ 

LI  7| 

A  7  '  M 

7  77 

.  • :  i  -  . 

V  ■  :■  :■ 

■  i  . 

f  ■»  > 

f  '  f  j  1 

1 

>  i 

/  i  !•'  i'  N 

:■  >;  _  -o  .  . 

’  "  •  7  •  ;  - 

*’  i 

M  1.  •/  A  / 

f  Ni.  i  7 

• 

’  1  y  <  r 

.1  >■" . 

'FI.  !■’ 

1  .  1.  -  1  , 

y, ;  m 

: ' 

,.  ;  ' 

•  :  1  )  ' '  .  ■  r 

M  1.  M 

i 

M 

'  •.  4  /  .  ■  / 

A.  .'M 

u  'i 

'  ^  . 

V  ii  »  ;  ,  •  . 

6  '  , 

,  I  “  j  ■ 

t* 

• 

■  1  7 

I 

/ 

27  30 

0  INDIX, 

0 

/ 

/////// 

SUBROUTINE  TYPE 

////// 

2731 

0  TYPE, 

0 

2732 

6  44  4 

TTYPE 

2  7  33 

7  12 

JMP 

#-1 

273^ 

44  4  3 

PRTT  Y 

/ 

2  7  35 

1  00  0  7  3  1 

JMP 

(iTYPE 

/ 

// 

////  S 

;UB  ROUT  INF  CRLF 

////////// 

27  36 

0  C  R  L  h  , 

0 

2737 

110212 

MEM  A 

(212 

2  740 

200d 7  3  1 

J  MS 

TYPE 

274  1 

110  215 

MEM  A 

( 2  1  5 

2742 

2  00  0  7  3  1 

JMS 

TYPE 

2743 

2000731 

JMS 

TYPE 

2  744 

1  0007  36 

JMP 

0CRL.F 

//  FUNCTION  PRTOCT(X) 

//  SUBROUTINE  U N PF ( SEN DF , N BYTES , FL AG , ST ART A) 

/  REVISION  —  DF.CMEBER  24,  i960 
/  AUTHOR  --  BARR  F.TT  ,  TB 

/  PURPOSE  —  TRANSFER  DATA  FROM  CORF  TO  A  DESTINATION  SPECIFIED  BY 
/  SEND!.  THE  DATA  MAY  BE  UNPACKED  IN  THE  PROCESS. 

/ 

/  PARAMETERS  — 

/  SEN DF  -  ENTRY  POINT  FOR  ACCEPTING  A  WORD  IN  ACC  (E.G.  TYPE) 

/  MBYTES  -  NO.  OF  BYTES  TO  BE  TRANSFERRED.  (FOR  PACKED  DATA 

/  THERE  ARE  2.5  BYTES/NIC  WORD) 

/  FLAG  -  1  =>  DO  NOT  UNPACK 

/  0  =>  UNPACK 

/  -1  =>  UNNIBBLE  (5  NIBBLES/WORD) 

/  STARTA  -  STARTING  ADDRESS  AT  WHICH  TO  OBTAIN  DATA.  IF 

/  SET  TO  -1,  IINPF  WILL  USE  THE  POINTER  FROM  THE  PREVIOUS  CALL 

*2750 


2750 

0  J  N  PF  , 

0 

275  1 

31 1 0750 

MEM  A 

0UNPF 

2752 

240506  I 

ACCM 

SENDF 

2753 

2  1  2  4  7  -,0 

M  POM 

U  N  PF 

2  754 

3110  150 

MEM  A 

P  IINPF 

2755 

2405064 

ACCM 

COUNT 

2  756 

?  124 760 

M  POM 

11  N  PF 

2  757 

3  1  1  '  i  7  6 

MDMA 

PIJ  NPF 

27b'' 

?4n', 0-  0 

A  C  C  M 

i1  N  PF  LG 

276  i 

1  1 

M  E  M  A 

(  1  7 

2  76  2 

2  1 3d-  ■ 

MPOZ 

UNPFL.G 

2  76  5 

111.; 

KM  A 

(  vn 

2764 

2  40  5  O'-’ 

AC':  M 

v  A  SK 

2  7  6  5 

2  1  2  4  7‘.|; 

M  P  ()M 

: ;  n  PF 

2766 

311 0750 

MEMA 

@11  NPF 

2767 

5  1  44 

EXCT 

AC  1  9 

2  77  0 

77  3 

JMP 

IJNPFX 

2  77  1 

2405066 

ACC  M 

POINT 

277  2 

775 

JMP 

UNPF1 

2  77  3 

2703065 

U  N  PF  X  , 

MM  OZ 

U  NPF  LG 

2  77  4 

10  14 

JMP 

U  N  PF  Z 

2776 

31 1 1 066 

U  N  PF  1  , 

MEM  A 

@POINT 

2  77  6 

2125066 

M  POM 

POINT 

2  77  7 

2703065 

MMOZ 

0  N  PF  LG 

3000 

1  00  5 

JMP 

U  N  PF  Y 

300  1 

300 1 063 

JMS 

@SENDF 

3002 

2707064 

MMOMZ 

COUNT 

300  3 

77  5 

JMP 

UNPF1 

300  4 

1  061 

JMP 

UNPFE 

3005 

2405067 

U  NPFY, 

AC  CM 

TEMP 

300  6 

11  0006 

MEMA 

(6 

300  7 

2405070 

ACC  M 

B COUNT 

3010 

10  14 

JMP 

//  +  4 

3011 

2707064 

U  N  PF  2  , 

MMOMZ 

COUNT 

3012 

1014 

JMP 

//  +  2 

30  13 

1  061 

JMP 

U  N  PF  t; 

30  14 

2717070 

U  N  PF  Z  , 

MMOM  AZ 

BCOIJNT 

3015 

1017 

JMP 

11  +  2 

3016 

77  5 

JMP 

U  N  PF  1 

/  FUNCTION  1 

PH TOCT( X  ) 

3017 

462005 

A-MZ 

(5 

3020 

1031 

JMP 

U  NPF  3 

3021 

2111 067 

U  N  PF  22  , 

MEMA 

TEMP 

30  22 

212  3065 

MPOZ 

U  NPF  LG 

3023 

5044 

LLSH 

4 

3024 

504  4 

LLSH 

4 

3025 

2405067 

ACC  M 

TEMP 

3026 

2011  07  3 

0  N  PF  2  1  , 

A  N  DA 

M  A  SK 

302  7 

300 1 063 

JMS 

FSENDF 

30  30 

10  11 

JMP 

U  N  PF  2 

3  0  3  1 

4  6  2  (X)  4 

ON  PF  3 , 

A-MZ 

(4 

30  32 

1  04  3 

JMP 

IJ  N  PF  4 

30  33 

2123065 

IJ  N  PF  3  3  , 

MPOZ 

U  NPF  LG, 

3034 

2  1  6  2  00  0 

Z  E  R  Z 

30  35 

1  021 

JMP 

U  NPF 22 

3  0  3  6 

2111 067 

M  EM  A 

TEMP 

30  37 

405024 

R  ISO 

4 

3040 

1  0  360 

AN  DA 

(  3  60 

304  1 

240507  1 

ACCM 

TEMP  1 

304  2 

1  021 

JMP 

U NPF 2 2 

304  3 

46  2 (X)  3 

ON  PF4  , 

A-M7. 

(3 

304  4 

1  060 

JMP 

i  1  N  PF  5 

/IF  N  EG .  THEN  DONT  INITIALIZE 


/TEST  FLAG 
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3049 

2123065 

MPOZ 

UNPFLG 

304  6 

2  1  6  2  00  0 

ZERZ 

3047 

1  021 

JMP 

UNPF22 

3050 

31 1  1  066 

MEMA 

0POINT 

305  1 

2125066 

MPOM 

POINT 

3052 

5044 

LLSH 

4 

3053 

2405067 

ACC  M 

TEMP 

3054 

1  00  1  7 

A  N  DA 

(  1  7 

3055 

25  11  071 

A+MA 

TEMP  1 

3056 

300 1 063 

JMS 

@SE  N  DF 

3057 

1  011 

JMP 

UNPF2 

3060 

1  021 

U  N  PF  5  , 

JMP 

UNPF22 

3061 

2124750 

U  N  PF  E , 

MPOM 

UNPF 

3062 

1  000750 

JMP 

@U  N  PF 

3063 

0 

SE  NDF  , 

0 

3064 

0 

COUNT, 

0 

3065 

0 

UNPFLG, 

0 

3066 

0 

POINT , 

0 

3067 

0 

TEMP, 

0 

3070 

0 

BCOUNT, 

0 

307  1 

0 

TEMP  1  , 

0 

3072 

0 

TEMP  2, 

0 

3073 

0 

MASK, 

0 

/RET  URN 


/ 

'/  SUBROUTINE  P  AKF ( R  HCVF ,N  BYTES , FL AG , START  A , NBYT  R ) 

/  REVISION  —  DECEMBER  31,1980 
/  AUTHOR  --  BARRETT  ,TB 

/  PURPOSE  —  TRANSFER  DATA  GIVEN  BY  RECVF  TO  CORE. 

/  THE  DATA  MAY  BE  PACKED  IN  THE  PROCESS.  (THIS  IS  THE  INVERSE 

/  OF  UNPF).  USE  OF  ARGUMENTS  IS  THE  SAME  AS  IN  IJNPF  EXCEPT- 

/  RECVF  GETS  A  DATA  BYTE  AND  GIVES  IT  TO  PACKF  VIA  ACC.  NOTE 

/  THAT  IT  MAY  BE  NECESSARY  FOR  RECVF  TO  CONTROL  THE  NUMBER  OF 


//  FUNCTION  PRTOCT(X) 

/  BYTES  TRANSFERRED  BY  STICKING  A  1  IN  CO  1J NT  1  WHEN  THE  I. AST 

/  BYTE  HAS  BEEN  RECEIVED  (E.G.  AN  EOF  MARK  IS  DETECTED) 

/  NBYTR  -  NO.  OF  BYTES  RECEIVED. 


3074 

0  PAKF  , 

0 

3075 

31110 7 4 

MEMA 

6>PAKF 

3076 

2405222 

ACC  M 

RECVF 

3077 

2125074 

MPOM 

PAKF 

3100 

3111 074 

MEMA 

0  P  A  K  F 

3101 

24  05  22 3 

;cm 

C0UNT1 

3102 

212  5  22  3 

MPOM 

C0IJNT1 

3103 

2125074 

MPOM 

PAKF 

3  1  04 

3111074 

MEMA 

0  P  A  K  F 

3105 

240522 5 

ACC  M 

PAKFI.C 

-  «■  '■  kliL  ^  >-•  v-  %J\  «-• 
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3106 

2125074 

MPOM 

PAKF 

3107 

31  1  1  074 

MEMA 

0  P  A  K  F 

3110 

5  1  44 

EXCT 

AC  1  9 

3111 

1117 

JMP 

PAKFX 

3112 

2405224 

ACC  M 

POINT) 

3113 

1 1  00  0  6 

MEMA 

(6 

3114 

2405231 

ACC  M 

RCNT 

3115 

21  65  22  6 

Z  ERM 

N  BYTES 

3116 

2165230 

Z  ERM 

WORD 

3117 

2703225 

PAKFX , 

MM  07. 

PAKFI.O 

3120 

1131 

JMP 

PAKF7 

3121 

2  7  0722  3 

PAKF1 , 

MMOMZ 

C0IJNT1 

3122 

1  124 

JMP 

//  +  2 

3123 

1215 

JMP 

PAKFF 

3124 

300  1222 

.IMS 

PRKCVF 

3125 

2 1  2  5  22  6 

MPOM 

N  BYTES 

3 1 2  6 

3405224 

ACCM 

PP0INT1 

312  7 

2 1 2  5  22  4 

MPOM 

P0INT1 

3130 

1121 

JMP 

PAKF1 

3131 

2  7  07223 

PAKF2 , 

MMOMZ 

C0IJNT1 

3132 

1  1  34 

JMP 

//  +  ? 

31  33 

1210 

JMP 

PAKF  E 

3134 

2707231 

MMOMZ 

RCNT 

31  35 

1  1  40 

JMP 

//  +  3 

3136 

11  0005 

MEMA 

(6 

3137 

2405231 

ACCM 

RCNT 

3140 

300  1222 

JMS 

0RECVK 

3141 

2405  22  7 

ACCM 

TMP 

3142 

212522  6 

MPOM 

N  BYTES 

3  143 

2111231 

MEMA 

RCNT 

3144 

462005 

A-MZ 

(5 

3145 

1152 

JMP 

PAKF3 

3146 

2111227 

PAKF22  , 

MEMA 

TMP 

3  147 

5070 

RLSH 

1  0 

3 1  50 

2505230 

A+MM 

WORD 

315  1 

1131 

JMP 

PAKF  2 

3  152 

4  6  2  00  4 

PAKF  3  , 

A-M7. 

(4 

315  3 

1  1  60 

JMP 

PAKF4 

3154 

2111227 

M  FM  A 

TMP 

3155 

5044 

LLSH 

4 

1 1  56 

2505230 

A+MM 

WORD 

//  FUNCTION  PKTOCT(X) 
3157  1131 

JMP 

PAKF2 

3 1  60 

4  6  2  00  3 

PAKF 4  , 

A-MZ 

(  3 

3  16  1 

1174 

JMP 

PAKF5 

3162 

21 1 1227 

MEMA 

TMP 

316  3 

405024 

R  ISH 

4 

3164 

2  5  112  30 

A+M  A 

WORD 

-78- 


3165  3^05 224  ACCM  0POINT1 

31  66  2125224  MPOM  POINT! 

31  67  21  1  1227  M  PM  A  TMP 

31  70  1  00  17  ANDA  (17 

3171  5064  RLSH  4 

3172  2405230  ACCM  WORD 

3173  1131  JMP  PAKF2 

3174  4  6  2  00  2  PAKF5 ,  A-MZ  (2 

3175  1202  JMP  PAKF6 

31  76  21  1  1227  MEMA  TMP 

31  77  5050  LLSH  10 

3200  2505230  A  +  MM  WORD 

3201  1131  JMP  PAKF2 

3202  2111227  PAKF6,  MEMA  TMP 

3203  2511230  A+MA  WORD 

3204  3405224  ACCM  6P0INT1 

3205  2125224  MPOM  P0INT1 

3206  21  65230  ZERM  WORD 

3207  1131  JMP  PAKF2 

321  0  270323  1  PAKFE,  MM OZ  BCNT 

321  1  21  62000  ZERZ 

3212  1215  JMP  //+  3 

321 3  211 1230  MEMA  WORD 

3214  3405224  ACCM  0POINT1 

321  5  2125074  PAKFF  ,  MPOM  PAKF 

321  6  21  1  1226  MEMA  N  BYTES 

3217  3405074  ACCM  0PAKF 

3220  2125074  MPOM  PAKF 

3221  1001074  JMP  @PAKF  /NOTE  THAT  WE  HAVE  TO  STORE  THE  LASI 

/  WHICH  MAY  BE  LATER  OVER  WRITTEN. 

3222  0  RECVF  ,  0 

3223  0  C0UNT1 ,  0 

3224  0  P0INT1,  0 

3225  0  PAKF LG,  0 

3226  0  N BYTES,  0 

3227  0  TMP,  0 

3230  0  WORD,  0 

3231  0  BCNT,  0 

//  SUBROUTINE  PKR ( KILN  AM ,NK) 

/  REVISION  —  JANUARY  22,1981 
/  AUTHOR  --  BARRETT, TB 

/  PURPOSE  —  PACK  USER  GIVEN  CHARACTERS  INTO  A  2-WORD 
/  "FILE-NAME".  THE  2  MOST  SIGNIFICANT  BITS 

/  OF  THE  FILENAME  ARE  00. 

/  ARGUMENTS  — 

/  FILNAM  -  ADDRESS  OF  THE  FIRST  WORD  OF  THE  FILENAME 

/  NF  -  (RETURNED)  THE  NO.  OF  CHARACTERS  IN  THE  FILENAME. 

*3240 
3240 


0  PKR  , 


0 


//  FUNCTION  PRTOCT(X) 


3D  4  1 

3  1  1  1 D40 

MEMA 

6»PKR 

3D  4  0 

D  4  0  5  3  0  1 

ACC  M 

A  DDR 

3D  4  3 

31  65  30  1 

Z  ERM 

6  A  DDR 

3D  4  4 

?1 35240 

MPOAM 

PKR 

3D  4  5 

2405302 

ACC  M 

NF 

3D  4  6 

31 65302 

Z  ERM 

ft  N  F 

3D  4  7 

1 1  00  0  6 

MEMA 

(6 

3D  SO 

2405064 

ACCM 

COUNT 

3D  S  1 

21 65 303 

Z  E  R  M 

INDIC 

3D  SO 

462003 

PKR1  , 

A-MZ 

(3 

3D  5  3 

12  56 

JMP 

//  +  3 

3  D  S  4 

2125301 

MPOM 

A  DDR 

3D  SS 

3  1  65  30  1 

Z  ERM 

ft  A  DD  R 

3D  S6 

21 0330  3 

MF.MZ 

INDIC 

3D  57 

127  1 

JMP 

PKRD 

3D  60 

300 1  304 

JMS 

0  ECHO 

3D  6  1 

4  622  1  5 

A-MZ. 

(216 

3D  6  D 

1  D  66 

JMP 

//+  4 

3D  6  3 

2025 303 

ON  EM 

INDIC 

3D  64 

21 65067 

Z  ERM 

TEMP 

3D  65 

12  71 

JMP 

PKRD 

3D  66 

3125302 

MPOM 

6  N  F 

30  67 

470240 

A-MA 

(2  40 

3D  70 

2405067 

ACCM 

TEMP 

3D  71 

3 11 1 301 

PKR2  , 

MEMA 

ft  A  DDR 

3D  7  D 

5  04  6 

LLSH 

6 

3D  7  3 

25  11  067 

A+M  A 

TEMP 

3D  7  4 

3405 30 1 

ACCM 

ft  A  DD  R 

3D  75 

2717064 

MMOMA 

Z  COUNT 

3D  76 

1252 

JMP 

PKR1 

3D  77 

2125240 

MPOM 

PKR 

3  3  00 

1  00  1 2  4  0 

JMP 

PKR 

33  0  1 

0 

ADD1 

0 

33  OD 

0 

NF, 

0 

33  0  3 

/ 

0 

I  N  D I C  , 

0 

/  EXTERNALS 

33  04 

22  57 

F.  C  HO  , 

2257 

//  FUNCTION  1 

0 R  TOC T ( X ) 

A  OD  R 

330  1 

RCNT 

323  1 

C0IJNT1 

322  3 

CRLF 

2736 

IN  DIG 

3303 

INI)  I  X 

2  7  30 

UXJ  P 

2  66  1 

M  A  SK 

3073 

NCC 

2  72  6 

NF 

3  302 

PAEFP 

3  131 

P  A  K  F  r 

'2 

314  6 

PAKF5 

3 1  7  4 

PAKF  6 

3  2  02 

/ STO  R H  TUF  ADDRESS  OF  Til F  FILENAME 

/STORK  ADLRE S.°  FOR  RETURNING  NF 


/  SKT  Oh  INDICATOR 


/IF  INDIO  HAS  ><EEN  SFT  THKN  JUST  SH 


/  INC  HEM  K  NT  FOR  R  FT  URN 


BCOIJNT 

3070 

COUNT 

306  4 

ECHO 

3  3  04 

END 

2  720 

l.  1 

•'  67  1 

l.  3 

2  706 

N BYTES 

3226 

NO 

2  7  27 

PAKF 

3074 

PAKF  1 

3  121 

PAKF  3 

(152 

PAKF  4 

3  1  60 

P  A  K  F  F. 

321  i) 

PAKEE 

32  15 

PAKFLG 

3225 

PAKFX 

3117 

PKR 

3240 

PKR1 

PKR2 

3271 

POINT 

3066 

POINT  1 

3224 

PRT01 

PRT02 

2627 

PRTOCT 

2  605 

RFCVF 

3222 

SENDF 

TEMP 

3067 

TEMP  1 

3  071 

TEMP  2 

3072 

TMP 

TYPE 

2731 

U  NP 

2650 

UNPF 

2  750 

U  N  PF  1 

UNPF2 

3011 

u  r,  PF21 

3026 

UNPF22 

3021 

U  N  PF  3 

UNPF33 

3033 

UNPF  4 

3  04  3 

UNPF  5 

3060 

U  N  PF  K 

UNPFLG 

3065 

UNPFX 

277  3 

U  M  PF  Y 

3  00  5 

UNPFZ 

WORD 

$ 

3230 

// 

FUNCTION 

PRTOCT(X) 

///  SUBROUTINE  DEC 
//  SUBROUTINE  DEC 
/  REVISION  —  DECEMRER  30,1980 
/  AUTHOR  --BARRF.TT  ,TB 

/  PURPOSE  --  TRANSFORM  A  PACKED  ASCII  HEX  STRING  TO  BINARY  AND  PACK 
/  5  NIBBLES  PER  NIC  WORD 

/  ARGUMENTS  —  ALL  ARGUMENTS  ARE  PASSED  THROUGH  A  COMMON  AREA 
/  WITH  THE  FOLLOWING  VARIABLES  IN  THE  ORDER  SHOWN- 

/  WPNT  -  POINTS  TO  STORAGE  LOCATION  OF  THE  I. AST  WORD 

/  STORED.  THIS  IS  INCREMENTED  WHENEVER  A  WORD  IS 

/  COMPLETE  SO  IT  SHOULD  BE  SET  ACCORDINGLY 

/  ON  INITIAL  ENTRY. 

/  WORD  -  CONTAINS  THE  NIBBLES  OR  PORTIONS  THEREOF  TO 

/  BE  STORED  AT  WPNT+1.  IT  SHOULD  BE  SET  TO  0  ON 

/  INITIAL  CALL. 

/  WCNT  -  A  COUNTER  FOR  WORD.  WHEN  WORD  TS  EMPTY, WONT 

/  =  5 ,  WHEN  FULL  WCNT=0.  WHEN  WCNT  GOES  TO  0,  WORD  IS 

/  STORED  AT  WPNT+1  AND  WPNT  IS  INCREMENTED.  ShT  TO  6 

/  AT  INITIAL  CALI.  TO  DEC. 

/  COUNT  -  THE  NUMBER  OF  NIBBLES+1  TO  BE  PACKED.  NOTE  THAT  COUNT 

/  IS  DECREMENTED  TO  0  BY  DEC. 

/  BCNT  -  BYTE  COUNTER.  SET  TO  1  FOR  INITIAL  CALL. 

/  APNT  -  POINT  TO  CURRENT  STRING  WORD.  SET  TO  1  LESS  THAN  THE 

/  START  OF  THE  STRING  INITIALLY. 

/  CHKSUM  -  NIBBLE  VALUES  ARE  ADDED  K  STORED  IN  CHKSUM.  SET  TO 

/  0  ON  EACH  CALL  TO  DEC  (USUALLY). 

/  NWORD  -  NO.  OF  WORDS  STORED.  (USUALLY  SET  Tu  0  AT  EACH  CALL. 

/  NOTE - 

/  IN  ORDER  TO  FORCE  A  WORD  OUT  OF  DEC,  SET  WCNT  TO  COUNT. 


f33  10 


33  1  0 

0 

DEC, 

0 

33  1 1 

2707420 

STAR  r, 

MMOMZ 

BCNT 

33  12 

1  321 

JMP 

#  +  7 

33  1  3 

11  00  05 

MEM  A 

(5 

33  1  4 

2405420 

ACCM 

BCNT 

3315 

2125421 

M  POM 

APNT 

33  1  6 

3111421 

MEM  A 

A  P  N  T 

33  1  7 

500  1 

LASH 

1 

332  0 

2405406 

ACCM 

TEMP 

332  1 

27074 1 6 

MMOMZ 

WCNT 

3322 

1  332 

.IMP 

'>  +  1  0 

3323 

11  00  05 

M  EMA 

(5 

332  4 

2405  4  1  6 

ACCM 

WCNT 

332  5 

21254  1  4 

M  POM 

WPNT 

3  3  2  6 

2111415 

MEM  A 

WORD 

33?  7 

34054  1  4 

ACC  M 

PWPNT 

33  30 

2125423 

M  POM 

NWORD 

33  3  1 

21654 1 5 

ZERM 

WORD 

33  3? 

2707417 

MMOMZ 

COUNT 

33  3  3 

1  33  7 

JMP 

//+  4 

33  34 

2125420 

MPOM 

BC  NT 

33  3  5 

21254  1  6 

MPOM 

WCNT 

3  3  3  6 

1  00  1  3 1  o 

JMP 

“•DEC 

///  SUB  H OUT  INK  DKC 


3  3  3  7 

2111 420 

MEM  A 

BC  NT 

33  4  0 

4  6200  3 

A-MZ 

(  3 

33  4  1 

1  360 

JMP 

DEC1 

3  3  4  2 

2125421 

MPOM 

A  PNT 

3  34  3 

3111421 

MEM  A 

0APNT 

3  3  4  4 

24064  1  0 

ACC  M 

TEMP  1 

33  4  5 

405023 

KISH 

3 

334  6 

25  11  406 

A  +  M  A 

TEMP 

33  4  7 

1  357 

JMP 

DEC? 

33  50 

462002 

r t ci , 

A-MZ 

(2 

33  5  1 

1  356 

JMP 

DEC3 

33  5  2 

2111410 

MEM  A 

TEMP  1 

33  5  3 

5005 

[.ASH 

5 

33  54 

2405406 

ACC  M 

TEMP 

33  55 

1  357 

JMP 

DEC2 

33  56 

2111 406 

DEC3, 

,  MEM  A 

TEMP 

33  67 

5  1  44 

DEC?, 

,  EXCT 

AC19 

33  60 

25  114  12 

A  +  M  A 

TRAN 

33  6  1 

500  3 

LASH 

3 

33  62 

2405406 

ACC  M 

TEMP 

33  63 

2  0  114  13 

A  N  DA 

MASK 

33  64 

2405407 

ACC  M 

N  I  BB  L  E 

33  65 

5044 

I.LSH 

4 

33  66 

2505422 

A+MM 

C  HKSUM 

/  GET  READY  FOR 

NEXT 

WORD 

33  67 

2111 406 

MEMA 

TEMP 

33  7  0 

5006 

LASH 

5 

33  7  1 

2405406 

ACC  M 

TEMP 

33  7  2 

11  0006 

MEMA 

(6 

33  7  3 

24054 1 1 

ACCM 

SHIF1 

33  7  4 

2111410 

MEMA 

WCNT 

33  76 

2  32  64  1 1 

M-AM 

S  H  I F 1 

33  76 

2111  any 

MEMA 

N I  BB  L  E 

33  77 

2  707  4 1 1 

MMOMZ 

SHIE1 

3400 

21  o7'*;i) 

z  !•:  R  7. 

341)  1 

0  1  4u4 

J  M  P 

»*  3 

3  <4  0  2 

4060.  4 

R  I  SH 

4 

34  0  3 

1  3  77 

JMP 

It  -  4 

3404  2505415  A  +  MM  WORD 

3405  1311  JMP  START 

/  SCRATCH  STORAGE 


3406 

0 

TEMP, 

0 

34  0  7 

0 

N  I  BB  L  E , 

0 

34  1  0 

0 

TEMP  1  , 

0 

34  11 

0 

SHIF1 , 

0 

/  MASKS 

34  12 

22  0000 

TRAN, 

220000 

3413 

3600000 

MASK  , 

3  600000 

/COMMON 

STORAGE 

34  14 

0 

WPNT, 

0 

34  1  5 

0 

WORD, 

0 

34  1  6 

0 

WCNT , 

0 

34  17 

0 

COUNT, 

0 

3420 

0 

BC  NT , 

0 

3421 

0 

APNT, 

0 

///  SUBROUTINE  DEC 

3422  0  CHKSIJM,  0 

3423  0  NWORD,  0 

//  SUBROUTINE  NI BB IN ( VALUE ,NN I R ,C , BIN ) 

/  REVISION  —  DECEMBER  30,1980 

/  AUTHOR  --  BARRETT,  TB 

/  PURPOSE  —  CONVERT  PACKED  BCD  OR  BCH  TO  BINARY. 

/  ARGUMENTS  — 

/  VALUE  -  PACKED  BCD  OR  RCH;  MOST  SIGNIFICANT  NIBBLE 

/  AT  UPPER  ORDER  LOCATION  IN  VALUE;  LEFT  JUSTIFIED. 

/  NNIB  -  NO. OF  4  BIT  NIBBLES  TO  BE  CONVERTED 

/  C  -  OCT  12  IF  THIS  IS  A  BCD  VALUE 

/  OCT  20  IF  THIS  IS  A  BCH  VALUE 

/  BIN  -  RETURNS  BINARY  VALUE  HERE 

/ 


//// 


»  34  70 


34  70 

0  N  I  BB  IN  , 

0 

34  7  i 

1 1  00  0  6 

MEM  A 

(6 

34  7  2 

2405560 

ACC  M 

SHIF 

14  7  1 

3111470 

MEMA 

0 N I BB  IN 

34  7  4 

240555  3 

ACCM 

VALUE 

34  75 

212547 0 

MPOM 

N  I  BB  r  N 

34  76 

2165557 

Z  EHM 

RESULT 

34  77 

311 3470 

MEM  AZ 

N I  HR  I  N 

3500 

2  1  6  2  00  0 

Z  ERZ 

3  50  1 

1  55  0 

JMP 

N  I  B? 

3502 

240555  4 

ACCM 

NN  I  B 

350  3 

2  325560 

M-AM 

SHIF 

3  504 

? 1  1  1  55  3 

MEMA 

V  A  I.IIK 

3505 

2707560 

MMOMZ 

SHIF 

-84  - 


3  BO  6 

2  1  6  0  00  0 

Z  E  R  Z 

3  BO  7 

1512 

JMP 

//+  3 

3910 

4060? 4 

R  I  SII 

4 

3911 

1  505 

JMP 

#  -  4 

35  ID 

240555  3 

ACC  M 

VALUE 

3513 

2125470 

MPOM 

N I BB  IN 

3514 

3111470 

MEM  A 

PNI  BB  IN 

49  15 

2  4055 5  5 

ACC  M 

C 

35  1  6 

21 35470 

MPOAM 

N  I  RB  I N 

3517 

2405556 

ACCM 

BIN 

3  5  DO 

2125470 

MPOM 

N  I  RB  I N 

3  521 

2 1  1  1  55  3 

MEMA 

VALUE 

35  22 

20255  26 

ON  EM 

M  P  LC  N  l) 

3  523 

1  00  1  7 

N  I  B  1  , 

AN  DA 

(  17 

3524 

4  3  54 

TACMQ 

3525 

505  32  0 

MULT 

3526 

0 

MPLCND, 

0 

3527 

4  34  3 

TMQAC 

35  30 

2505557 

A+MM 

RESULT 

353  1 

2707554 

MMOMZ 

NN  I  B 

35  32 

1  5  34 

JMP 

//  +  2 

3533 

1  55  0 

JMP 

N I  B2 

35  34 

2111 526 

MEMA 

MPLCND 

35  35 

2405541 

ACCM 

//  +  4 

35  36 

2111  955 

MEMA 

C 

SUBROUTINE 

DEC 

35  37 

4  35  4 

TACMQ 

3  5  40 

505 32  0 

MULT 

35  4  1 

0 

0 

3542 

4  34  3 

TMQAC 

9  54  3 

2405526 

ACCM 

MPLCND 

3544 

2 1  1  1  55  3 

MEMA 

VALUE 

3546 

405024 

RISK 

A 

354  6 

240555 3 

ACCM 

VALUE 

364  7 

1  523 

JMP 

N I  R 1 

3  55  0 

2 1  11  55  7 

N  I  B?  , 

MEMA 

RESULT 

3  55  1 

3405556 

ACCM 

PBIN 

355  2 

1  00  1470 

JMP 

PHI BB  TN 

3  55  3 

0 

VALUE, 

0 

3  55  4 

0 

NN  I  L  , 

0 

3  55  5 

0 

» 

0 

3  55  6 

0 

B  I  N  , 

0 

3  55  7 

0 

R  K:; 1  ll  r , 

( ) 

3560 

vj 

SB  IE  , 

0 

//  SI)!-.  H  OUT  INK  TKKHKX  (  CNT,  NBYTE ) 

/  REVISION  --  JANUARY  24.19H1 
/  AUTHOR  --  HARR  KIT  ,TB 

/  PURPOSE  —  DECODES  (TO  BINARY)  A  TEKTRONIX  ! !  i  A  II.K  AND  PUT 


•y  5- 


^  ^  ■-  •- 


/  THE  HKSULT  IN  PACKED  FORM  STARTING  AT  LOCATION 

/  lOOOOO.  THE  INPUT  FILE  IS  ASSUME')  TO  BE  IN 

/  PACKET  FORM  STARTING  AT  IOOOoO. 

/  ARGUMENTS  —  CNT  -  TOTAL  NO.  OF  PACKED  WORDS  IN  THE  OUTPUT. 

/  NOTE  THAT  THE  LAST  PACKED  WORD  MAY  HAVE  0  FI..E. 

/  ALSO  NOTE  THAT  DEC  PACKS  WORDS  SUCH  THAT  NIBBLE1 

/  OCCUPIES  19-16 . NIBBLES,  3-0. 

/  NBYTF  -  TOTAL  Nn.  OF  BYTES  {?  NIBS)  STORED. 

/  -  NOTE  THAT  THIS  SUBROUTINE  ASSUMES  THAT  THE  TEK.  800  2  AND 

/  COMM-STOH  ARE  CONFIGURE!)  SUCH  THAT  EACH  "LEAPING”  SLASH  13 

/  PREFACED  WITH  XOF  (ASCII  2?3>.  ALSO  NOTE  THAT  THERE  ARE 

/  17  (21  OCT)  SURPLUS  CHARS.  AFTER  THE  LAST  CR. 

/  BE  SURE  TO  USE  MX  MODE  WHEN  STORING  THE  HEX  FILE. 

*  3568 


3569 

0 

TEKHEX , 

0 

3566 

211 1 665 

MEM  A 

TEKHEX 

3567 

2405750 

ACC  M 

CNT 

3670 

31 66750 

2  ERM 

0CNT 

357  1 

21  35565 

MPOM  A 

TEKHEX 

357  ? 

2406764 

ACC  M 

N  BYTE 

367  3 

3 1 65754 

ZERM 

PNBYTE 

3  6  7  4 

21255  65 

MPOM 

TEKHEX 

3875 

2025420 

ON  EM 

BC  NT 

3576 

21 65746 

Z  ERM 

WORDO 

3677 

1 1  000  6 

MEM  A 

(6 

3  fa  00 

2405747 

ACC  M 

WCNTO 

3  fa  0 1 

2111 766 

MEM  A 

HUES 

3  fa  02 

2650000 

A  MO  A 

3  fa  0  3 

2405421 

ACCM 

A  P  N  T 

3  604 

2405745 

ACC  M 

WENT  0 

3606 

1 1  00  1  3 

T  E  K  1  , 

MEM  A 

(  1  3 

3606 

24054  1  7 

ACCM 

COUNT 

3607 

1 1  00  0  6 

MEMA 

(6 

///  SUBROUTINE  ! 

D  E  C 

3  6  1  0 

2  405  4  1  6 

ACCM 

W  CNT 

36  11 

21 65  4  1  5 

Z  ERM 

WORD 

3  6  1? 

2111 755 

MEMA 

HEADA 

36  13 

24054  1  4 

ACCM 

W  P  N  T 

3  fa  1  4 

2  00  1  31  0 

JMS 

DEC 

3  6  1  5 

2111751 

MEMA 

HEAD 

36  16 

5050 

LI.  S  H 

1  0 

'3617 

1  00  1  7 

A  N  DA 

(  1  7 

3  6  BO 

462017 

A-MZ 

(  1  7 

3621 

2  1  6  2  00  0 

Z  E  R  Z 

3  fa  2D 

1  fa  34 

.IMP 

TEK  2 

362  3 

300 1 760 

.JMS 

-  :  REF 

3  fa  2  4 

300 1 767 

J  M  S 

mi  1  N  P 

3626 

12 

1  2 

/INI  riALI/.F  DEC 


/ADDRESS  OF  HEADER  START 

/CHECK  LOR  "/" 


-  a  fa  - 


3  f>  2  6  1  1 

3627 

6  44  5 

TEXT  %  TE 

3  6  3D 

535045 

KH  E 

3  6  31 

7  00  0  4  5 

X  E 

3  6  32 

6  27?  00 

IU 

36  33 

1  7  44 

JMP 

TEKE 

36  34 

2111 762  TKK2, 

MEMA 

HEAD+ 1 

3  6  36 

5  044 

LLSII 

4 

3  6  36 

2405640 

A  COM 

II  +  2 

3  6  37 

2  00  1  47  0 

JMS 

N  1  Bb  I  N 

3  6  40 

0 

0 

364  1 

2 

2 

36  4? 

2  0 

2  0 

3  6  43 

0 

0 

3  6  44 

21 1 1 643 

MEMA 

//-I 

3646 

3505764 

A+MM 

PN  BYTE 

3  6  4  6 

500  1 

LASH 

1 

3  6  4  7 

2407417 

ACC  MZ 

COUNT 

3  660 

1  66  2 

JMP 

II  +  2 

305  1 

1  7  34 

.IMP 

TE K  3 

THIS  WAS 

LAST 

FULL  BYTE 

» 

365  2 

21264  17 

MPOM 

COUNT 

3  65  3 

2111 745 

M  EM  A 

WPNTO 

3654 

24054  1  4 

ACC  M 

W  P  N  T 

3655 

2111746 

MEMA 

WORDO 

3656 

24054  1  5 

ACC  M 

WORD 

3657 

2111747 

M  EM  A 

WCNTO 

3  66  0 

24054  1  6 

ACC  M 

WCNT 

306  1 

21 65422 

/  FRM 

CHKSUM 

3  66  2 

21 65423 

7.  ERM 

N  WORD 

3  66  3 

200  131  0 

JMS 

DEC 

366  4 

2111 4  22 

MEMA 

C  HK SUM 

366  5 

1  0  377 

A  N  DA 

(3  77 

3  66  6 

2405753 

AC  CM 

C  HK  S 

3  66  7 

2111  423 

M  EM  A 

N  WO  R  D 

367  0 

3505750 

A  +  MM 

PC  N  T 

3  57  1 

21114  14 

m  w  m  a 

W  P  N  T 

367? 

24057 4 o 

ACC  M 

WPNTO 

367  3 

21114  15 

M  M  A 

W  0  R  U 

3  67  4 

2  406/46 

ACC  M 

WORDO 

1675 

2111 4  1  6 

M  K  M  A 

WCNT 

/  SDH  ROUT  INK  T 

3  676 

2 ' JO 6  7  4  I 

A  C  C  M 

WCNTO 

3  677 

1 1  000  4 

MEMA 

(4 

3  7  00 

2  4  064  1  7 

A  CC  M 

COUNT 

/  GOTO  IKK H (-I X  END 


/*2  FOR  TOT  Ai.  NO.  OF  NIBBLES 


/THIS  MOL)  ?  56 


/STORK  STATE  FOR  NEXT  CALL 


H)H  G  Fi  r  (NO  r  IV  A  1  i 


N  I  HH  1. 


3626 

1 

1 

3627 

6  44  5 

TEXT  % 

TE 

36  30 

5  35045 

KHF 

3631 

700  04  5 

X  E 

3  6  32 

6  27/00 

R* 

3  6  33 

1  7  44 

JMP 

TEKE 

3634 

2111 75?  TEK2, 

MEM  A 

HEAD+  1 

3  6  30 

50  4  4 

l.LSH 

4 

36  36 

2405640 

A  COM 

il  +  2 

36  37 

2  00  1  4  7  0 

J  M  S 

N I  BB  I N 

3640 

0 

0 

364  1 

2 

? 

36  42 

20 

20 

3643 

0 

0 

36  44 

2111643 

MEM  A 

//-I 

3645 

3505754 

A+MM 

^N  BYTE 

3  6  46 

500  1 

LASH 

1 

3  6  47 

2407417 

ACC  MZ 

COUNT 

3  6  5  0 

1  652 

JMP 

//  +  ? 

365  1 

1  7  34 

JMP 

TE  K  3 

THIS  WAS 

LAST 

FULL  BYTE 

. 

3652 

21254  17 

MPOM 

COUNT 

365  3 

21  1 1745 

MEM  A 

WPNTO 

3654 

24054  1  4 

ACC  M 

WPNT 

3655 

21 1 1 746 

MEM  A 

WORDO 

3656 

2  4054  1  5 

AC  CM 

WORD 

3657 

2U1747 

MEM  A 

WCNTO 

3  66  0 

24054  1  6 

ACCM 

W  CUT 

366  1 

21 65422 

/  HRM 

C  HK SUM 

3  66  2 

21 65423 

Z  E  R  M 

NWORD 

366  3 

200  1  31  0 

J  M  S 

DEC 

366  4 

2  ■  1  1  4  22 

MEM  A 

C  HK  SUM 

3  66  5 

1  0  377 

A  M  OA 

(  3  7  7 

3  66  6 

2405753 

ACCM 

C  HKS 

3  66  7 

2111 423 

M  EM  A 

NWORD 

3670 

3505750 

A  -'-MM 

£>CNT 

36  7  1 

2 1  1 1  4  1  A 

M  KM  A 

WPNT 

2406746 

ACCM 

WPNTO 

367  3 

21114  1  6 

M  £  M  .A 

WO  RD 

3  67  4 

2400746 

ACCM 

WORDO 

3  6  7  6 

2111416 

M  I.  M  A 

WCNT 

SUBROUTINE  Cl 

k  C 

3676 

2 '0)6 7  4  7 

A  C  C  M 

w  cn  r  ) 

3677 

1 1  000  4 

MEM  A 

( 4 

3  7  (X) 

2  406  4  1  7 

A  0  C  M 

COUNT 

37  01 

1  1  000)4 

MEM  A 

(4 

3702 

2  405  4  1  6 

A  (4'« 

W  CN  I 

3  7  0  i 

2  1  06 4  1  6 

Z  F  R  >■' 

WO  RD 

/  GOTO  TKKHHX  END 


/  #2  FOR  TOTAL  NO.  OF  NIBBLES 

/NORMA!.  TERMINATIoN-CHECK  FOR  WHETH! 


/THIS  MOD  2 06 

/STORE  STATE  FOR  NEXT  GALL 

r:  i-.T  f  oh  o  nr  i  no  i  k„  i  if  r  m  n  i  m<  led 


-HD-A149  727  TOPICS  IN  OPTICAL  MATERIALS  AND  DEVICE  RESEARCH  -  III 
VOLUME  2<U>  PARKE  MATHEMATICAL  LABS  INC  CARLISLE  HASS 
T  B  BARRETT  ET  AL.  AUG  84  RADC-TR-84-72-V0L-2 
UNCLASSIFIED  F19628-81-C-8952  F/G  9/2 


///  SUBROUTINE  DEC 


APNT 

3421 

BCNT 

3420 

C 

3555 

CHKS 

3753 

COUNT 

3^  1  7 

C  RLE 

3760 

DEC2 

3357 

DEC3 

33  56 

MASK 

3413 

MPLCND 

3526 

N I  B2 

3550 

MIBB  IN 

3470 

NWORD 

3423 

RESULT 

355  7 

START 

3311 

TEK  1 

3  605 

TEKE 

3744 

TEKHEX 

3565 

TRAN 

34  12 

UNP 

3757 

WCNTO 

3747 

WORD 

3415 

WPNTO 

3745 

$ 


BIN 

355  6 

BIJFS 

3  756 

CHKSUM 

3422 

C  NT 

3  750 

DEC 

3310 

DEC1 

3350 

HEAD 

3751 

HEADA 

3755 

N  BYTE 

3754 

N  I  B 1 

3523 

N I  BB  L  F. 

3407 

NNI  B 

3  55  4 

S  H  IF 

3560 

SHIF1 

34  11 

TEK2 

3  6  34 

TEK  3 

3  734 

TEMP 

3406 

TEMP  1 

34  10 

VALUE 

3  55  3 

WCNT 

3416 

WORDO 

3746 

WP  NT 

34  14 

///  SUBROUTINE  DEC 


//  SUBROUTINE  NI CF IL ( NW , FILN AM) 

//  SUBROUTINE  NI CF IL ( NW , FILN AM) 

/  REVISION  —  JANUARY  26,1980 
/  AUTHOR  --  BARRETT, TB 

/  PURPOSE  —  TRANSFER  A  CORE  "FILE"  TO  DISK  FILE.  THE  CORE  FILE 
/  STARTS  AT  100000. 

/  ARGUMENTS  — 

/  NW  -  LENGTH  OF  THE  FILE  (WORDS) 

/  FILN  AM  -  ADDRESS  OF  THE  NAME  TO  BE  ASSIGNED  TO  THE  KILE. 

/ 

//////////////////////////////////////////////////////////////// 
•40  10 


4010 

0 

NICFIL, 

0 

40  11 

3  1 1  00  1  0 

MEMA 

0NICFIL 

40  12 

3404425 

ACC  M 

@0 ARG2 

4013 

2404032 

ACC  M 

NW 

40  14 

3164424 

ZERM 

0  0  A  R  G  1 

40  15 

21240  10 

MPOM 

NICFIL 

40  1  6 

3  1 1  00  1  0 

MEMA 

PNICFIL 

40  17 

2404063 

ACC  M 

AFIL 

4020 

21240  10 

MPOM 

NICFIL 

/SET  FOR  ERROR  RETURN 

4021 

3000420 

JMS 

£0  PE  NW 

4022 

311  0425 

MEMA 

@0  ARG2 

/MAKE  SURE  HAVE  ENOUGH 

SPACE 

4023 

2462032 

A-MZ 

NW 

4024 

5  144 

EXCT 

AC  1  9 

/IF  NEG.  JUMP  TO  ERROR 

EXIT 

4025 

4  7 

JMP 

ERR 

4026 

311 0424 

MEMA 

0OARG  1 

4027 

2404031 

ACCM 

IT 

4030 

3000421 

JMS 

0WRITE 

4031 

0 

IT, 

0 

403? 

0 

NW, 

0 

4033 

100  0  0  0 

1  00000 

4034 

21  1  00  32 

MEMA 

NW 

4035 

3404425 

ACCM 

00 ARG? 

4036 

3 1  1  00  6  3 

MEMA 

0AFIL 

4037 

2404044 

ACCM 

0  +  5 

4040 

2124063 

MPOM 

AFIL 

404  1 

3  1 1  00  b  3 

MEMA 

0AFIL 

4042 

2404045 

ACCM 

0+3 

4043 

3000422 

JMS 

0CLOSE 

4044 

0 

0 

4045 

0 

0 

4046 

61 

JMP 

N  I  C 1 

4047 

30004  12 

ERR  , 

JMS 

0UNP 

4050 

17 

1  7 

405  1 

1 

1 

4052 

5657 

TEXT  %  NO 

4053 

4  65  1 

FI 

4054 

544500 

LE 

4055 

6  3604  1 

SPA 

4056 

434515 

CE- 

4057 

77 0000 

% 

4060 

10000  10 

JMP  0NICFIL 

4061 

2124010 

N  I  C 1  , 

MPOM  N I CF IL 

//  SUBROUTINE  NI CF  IL  (  NW ,  FILN  AM) 

4062  1000010  JMP  0NICFIL 

/  SCRATCH  STORAGE 

4063  0  AFIL,  0 

//  SUBROUTINE  SE  ARCH(MNEM  ,  CODE ,  VA  LUE ,  NBYTE  ,  T  ARE  A  ,  FL  AG  ) 

/  REVISION  —  JANUARY  22,1981 

/  AUTHOR  --  BARRETT, TB 

/  PURPOSE  —  SEARCH  A  TARLE  FOR  CODEAVA LUE&NO .  OF  RYTES  IN  THE 
/  VALUE  (WHERE  VALUE  IS  A  SINGLE  WORD  WITH  UP  TO 

/  5  NIBBLES)  OR  INSERT  VALUE  A  NO.  OF  NIBBLES  IN  VALUE 

/  PARAMETERS  — 

/  MNEM  -  3  LETTER  MNEMONIC  (PACKED)  WHICH  IDENTIFIES  AN  ENTRY 

/  CODE  -  THE  CORRESPONDING  CODE  (CAMERA  "SECONDARY  ADDRESS") 

/  VALUE  -  DATA  WORD  ASSOCIATED  WITH  THE  CODE  (MAY  BE  0) 

/  TYPICALLY  THIS  IS  A  BCD  CODE.  FOR  EXAMPLE  120} 

/  WOULD  HAVE  NIBBLES  1,2, 0,3,0  IN  THAT  ORDER  FOR 

/  AN  OCTAL  WORD  =  0220060. 

/  NBYTE  -  NO.  OF  NIBBLES  IN  VALUE  (MAY  BE  0) 

/  TABLA  -  ADDRESS  OF  THE  START  OF  THE  TABLE 

/  FLAG  -  ON  ENTRY,  FLAG  IS  USED  TO  INDICATE  WHETHER  THIS 

/  IS  A  RETURN  (0)  OR  REPLACE  (1)  OPERATION.  ON 

/  SEARCH  OPERATIONS,  FLAG  IS  ALSO  RETURNED  AS  0  FOR 

/  A  SUCCESSFUL  SEARCH  AND  AS  1  FOR  NO-FIND. 

/  NOTE  - 

/  TABLE  HAS  THE  FORM  - 

/  MNEMONIC  (3  PACKED  LETTERS , R-J USTIF I  ED) 

/  CODE  RIGHT  JUSTIFIED  8-BIT  CODE 

/  N-NIBBLES  NO.  OF  NIBBLES  IN  VALUE 

/  VALUE  PACKED  NIBBLES 

/  ETC. 

/  THE  TABLE  SHOULD  BE  TERMINATED  WITH  t*. 

*4070 


40  70 

0  SEARCH, 

0 

407  1 

3  1  1  00  7  0 

MEM  A 

0 SEARCH 

4072 

2404 1 50 

ACC  M 

MNEM 

4073 

21 34070 

MPOM  A 

SEARCH 

4074 

2404 151 

ACC  M 

CODE 

4075 

21 34070 

MPOM  A 

SEARCH 

4076 

2404304 

ACC  M 

VALUE 

4077 

21 34070 

MPOM  A 

SEARCH 

4  1  00 

2404152 

ACC  M 

NBYTE 

4  101 

2124070 

MPOM 

SEARCH 

4  102 

311  0070 

MEM  A 

PSE ARCH 

4103 

2404153 

ACC  M 

TABLA 

4  104 

2124070 

MPOM 

SEARCH 

4  105 

112 

JMP 

//  +  5 

4  106 

2124153 

SEA1  , 

MPOM 

TABLA 

4  107 

2124153 

MPOM 

TABLA 

4  110 

2124153 

MPOM 

TABLA 

4  111 

2124153 

MPOM 

TABLA 

4  112 

311 0153 

MEMA 

PT  ABL A 

4  113 

462300 

A-MZ 

(300 

4  114 

1 1  6 

JMP 

U  +  2 

4  115 

145 

JMP 

SEA  2 

4  116 

24621 50 

A-MZ 

MNEM 

4  117 

106 

JMP 

SE  A 1 

SUBROUTINE  N I CF IL ( NW , FILN AM ) 

4  120 

3102070 

MEMZ 

^SEARCH 

4  121 

1  34 

JMP 

SE  A3 

4  122 

2124153 

MPOM 

TABLA 

4  123 

311 0153 

MEMA 

PT  ABL A 

4  124 

3404 151 

ACCM 

0CODH 

4  12  6 

2124  153 

MPOM 

TABLA 

4126 

3110153 

MEMA 

PT  ABL A 

4127 

3404 1 52 

ACCM 

0NBYTE 

4130 

2124153 

MPOM 

TABLA 

4  131 

311 0153 

MEMA 

PT ABL A 

4  132 

3404304 

ACCM 

LVALUE 

4133 

1  44 

JMP 

SEA4 

4134 

2124153 

SEA3, 

MPOM 

TABLA 

4135 

2124153 

MPOM 

TABLA 

4  136 

3110152 

MEMA 

0NBYTE 

4  137 

3404 153 

ACCM 

PTABLA 

4  140 

2124153 

MPOM 

TABLA 

4  141 

31  1  0304 

MEMA 

LVALUE 

4  142 

3404  153 

ACCM 

#T  ABL A 

4  143 

1  45 

JMP 

SEA2 

4  144 

3166070 

SEA4  , 

ZERMZ 

^SEARCH 

4145 

3024070 

SEA  2, 

ONEM 

^SEARCH 

4  146 

2124070 

MPOM 

SEARCH 

4  147 

1  000070 

JMP 

PSE  ARCH 

SCRATCH  STORAGE 

4  150 

0 

MNEM, 

0 

4  151 

0 

CODE , 

0 

4  152 

0 

N  BYTE , 

0 

4153 

0 

TABLA  , 

0 

//  SUBROUTINE  Z ERT AB( T ABL E ) 

/  PURPOSE  —  ZEROES  THE  COMMAND  TABLE 


/CANT  FIND 


/STORE 


/  ARGUMENTS  —  TABLE  -  START  ADDRESS  OF  TABLE 
*4160 


4160 

0 

ZERTAB, 

0 

4  161 

11  00  23 

MEM  A 

(23 

4162 

2404173 

ACCM 

COUNT 

4163 

3 1 1  0 1  60 

MEMA 

gZERTAB 

4  164 

2404 174 

ACCM 

POINT 

4  165 

31 64174 

Z  El  , 

ZERM 

0POINT 

4166 

2124174 

M  POM 

POINT 

4  167 

2706173 

MMOMZ 

COUNT 

4  170 

1  65 

JMP 

Z  El 

4171 

2124160 

MPOM 

Z  ERTAB 

4172 

1 000 1 60 

JMP 

@ZERTAB 

/  SCRATCH 

4173 

0 

COUNT, 

0 

4  174 

0 

POINT, 

0 

/ 

/////////////////////////////////////////////////////////////// 

/ 

//  FUNCTION  MULTP(X) 

/  PURPOSE  —  MULTIPLIES  ACC  BY  X  AND  RETURNS  RESULT  IN  ACC  (LOWER 
/  20  BITS  OF  THE  RESULT.  THE  HIGH  ORDER  BITS  ARE  PUT 

/  IN  THE  MO  REGISTER. 


4175 

0  MULTP , 

0 

//  SUBROUTINE  NICFIL(NW 

,  FILNAM) 

4  176 

4354 

TACMQ 

/TRANSFER  ACC  TO  MQ  REGISTER 

4177 

311 0175 

MEMA 

@MULTP 

4200 

2404202 

ACCM 

//  +  2 

4201 

505  320 

MULT 

4202 

0 

0 

4203 

2404304 

ACCM 

VALUE 

4204 

4343 

TMQAC 

/TRANSFERS  MO  (LOW  ORDER) 

TO  ACC 

4205 

2404305 

ACCM 

VALUE1 

4206 

211 0304 

MEMA 

VALUE 

4207 

4354 

T  AC  MO 

/PUT  HIGH  ORDER  IN  MQ 

421  0 

21 1 0305 

MEMA 

VALUE1  /LOW  ORDER  IN  ACC 

FOR  RETURN 

421  1 

2124 1 75 

MPOM 

MULTP  /SET  FOR  RETURN 

4212 

1000  175 

JMP 

PMULTP 

/ 

/////////////////////////////////////////////////////////////// 

/ 

//  FUNCTION  DIVDE(X) 

/  PURPOSE  —  DIVIDE  MQ+ACC  BY  X  AND  RETURN  THE  RESULT  IN  ACC. 

/  RETURN  THE  REMAINDER  IN  X.  NOTE  THAT  MQ  CONTAINS  THE  HIGH 

/  ORDER  BITS  AND  ACC  THE  LOW  ORDER  BITS  OF  THE  DIVIDEND. 

0  DIVDE,  0 
5  210  CLL 

5144  EXCT 


421  3 
421  4 
421  5 


/CLEAR  LINK 


421  6 

5  204 

STL 

w 

421  7 

500  1 

LASH 

1  /LEFT  SHI  ■' T  DIVIDEND 

"« 

4220 

2404304 

ACC  M 

VALUE  /STORE  TEMPORARILY 

-.*  \ 

4221 

4343 

TMQAC 

/GET  HIGH  ORDER  BITS 

4222 

500  1 

LASH 

1 

4223 

5  141 

EXCT 

L 

i 

4224 

2430000 

APOA 

4225 

2404305 

ACC  M 

VALUE1  /STORE  TEMPORARILY 

4226 

21 1 0304 

MEM  A 

VALUE 

4227 

4354 

TACMQ 

/LOAD  IT  INTO  MQ 

4230 

311 021 3 

MEM  A 

@DI VDE  /GET  DIVISOR 

4231 

2404234 

ACC  M 

D  1 

4232 

21 1 0305 

MEM  A 

VALUE1  /PUT  HIGH  ORDER  IN  ACC 

4233 

465300 

DIVD 

4234 

0  D1  , 

0 

4235 

405021 

R  ISH 

1  /RESTORE  THE  REMAINDER 

4236 

340421 3 

ACC  M 

@DI VDE  /AND  STORE  FOR  RETURN 

4237 

4343 

TMQAC 

/QUOTIENT  TO  ACC 

“•  * 

4240 

212421 3 

MPOM 

DIVDE  /FOR  RETURN 

424  1 

1000213 

JMP 

0DIVDE 

/ 

//////////////////////////////////////////////////////////////////////} 

y 

/ 

// 

SUBROUTINE  SENDF 

/ 

PURPOSE  —  GIVEN  A  " 

WORD"  TO  BE  PRINTED  IN  ACC,  SENDF  PRINTS  THE 

-  .  - 

/ 

WORD  ACCORDING 

TO  THE 

FOLLOWING  RULE- 

/ 

(  1  )  IF  SM0DE  =  0  THEN 

PRINT  DIRECTLY  AFTER  CONVERTING  TO 

/ 

NIC  ASCII 

/ 

(2)  IF  SM0DE=1  THEN 

CONVERT 

TO  DOUBLE  HEX  AND  PRINT.  ALSO  COUNT 

/ 

CHARACTERS  (OR 

WORDS) 

AND  AT  END  OF  WCNTO  WORDS  DO  A  CR.  THE 

m 

/ 

WORD  COUNTER  COUNTER 

SHOULD  BE  SET  TO  WCNTO  INITIALLY. 

/ 

SMODE 

W CNT  AND  WCNTO  CAN  BE  CONSIDERED  IN  COMMON  DECLARED  IN  SENDF. 

// 

SUBROUTINE  N I CF IL ( NW , FILN AM) 

4242 

0  SENDF, 

0 

*  * 

4243 

2102311 

MEMZ 

SMODE 

4244 

250 

JMP 

HEXM 

■ 

4245 

5  1  0200 

A  +  M  A 

(2  00 

4246 

3000417 

JMS 

0TYPE 

4247 

276 

JMP 

HEXM? 

4250 

2024307  HEXM, 

ONEM 

LCNT  /SET  NIBBLE  COUNT  TO  2 

425  1 

2124307 

MPOM 

LCNT 

4252 

5064 

R  LSH 

4 

< 

4253 

2404304  HHXM1 , 

ACC  M 

VALUE 

4254 

11  0  260 

M  F.M  A 

(2  60 

V  ' 

4  2SR 

2404306 

ACC  M 

PREF 

4  2  56 

21 1 0304 

M  F.M  A 

VALUE 

AO 
**  *■  > 

4  2  57 

1  00  1  7 

AN  DA 

(  1  7 

4260 

2404305 

ACC  M 

VALUE1 

. 

94- 

tJUmJLmMm 


4261 

4700  12 

A-MA 

(12 

4262 

5  1  44 

EXCT 

AC  1  9 

4263 

267 

JMP 

//  +  4 

4264 

2424305 

A  POM 

VALUE1 

42  65 

11 0300 

MEMA 

(300 

4266 

2404306 

ACC  M 

PREF 

42  67 

21 1 0305 

MEMA 

VAI.UE1 

4270 

251 0306 

A  +  MA 

PREF 

4271 

3000417 

JMS 

0TYPE 

4272 

21 1 0304 

MEMA 

VALUE 

4273 

5044 

LLSH 

4 

4274 

2706307 

MMOMZ 

LCNT 

4275 

253 

JMP 

HEXM1 

4276 

2706310 

HEXM2, 

MMOMZ 

WCNT 

4277 

303 

JMP 

SENDE 

4300 

21  10312 

MEMA 

WCNTO 

4301 

240431  0 

ACCM 

WCNT 

4302 

3000414 

JMS 

0CRLF 

4303 

1000242 

SENDE, 

JMP 

@SENDF 

/ 

SCRATCH  STORAGE 

4304 

0 

VALUE, 

0 

4305 

0 

V  ALU  El  , 

0 

4306 

0 

PREF, 

0 

4307 

0 

LCNT , 

0 

/ 

COMMON 

4310 

0 

WCNT , 

0 

4311 

0 

SMODE, 

0 

/ 

4312 

0 

WCNTO , 

0 

/ 

//  SUBROUTINE  GETFIL 


/ 

PURPOSE  —  ASKS  FOR  FILE  WANTED  AND  GETS  THE  FILE  INTO  NIC 

/ 

CORE  STARTING  AT 

'  1  00000.  IF  THE  FILE  IS  UNAVAILABLE, 

/ 

AN  ERROR 

1  MESSAGE  IS  PRINTED  AND  THE 

/ 

ERROR  EXIT  IS  TAKEN. 

(NORMAL  EXIT  IS  2  BEYOND  CALL  POINT.) 

4313 

0  GETFIL, 

0 

4314 

30004  12 

JMS 

PUNP 

4315 

14 

1  4 

4316 

0 

0 

// 

SUBROUTINE  NICFIL(NW, 

FILNAM) 

4317 

4  65  1 

TEXT 

t  FI 

4  32  0 

544500  LE 

4321 

564  1  55  NAM 

4322 

453735  E?= 

4323 

77  0000  % 

4324 

30004  1  3 

JMS 

PPKR 

4325 

4  33  1 

F ILN AM 

4326 

0 

0 

4327 

3000414 

JMS 

0CRLF 

4330 

3000415 

JMS 

0OPENR 

433  1 

0  FILNAM, 

BLOCK 

2 

4333 

311 0424 

MEM  A 

0OARG1 

4334 

5  104 

SKIP 

AC  1  9 

4335 

351 

JMP 

GETF1 

4336 

30004  12 

JMS 

@UNP  /FILE  DOES  NOT  EXIST 

4337 

24 

24 

4340 

1 

1 

434  1 

4  65  1 

TEXT  * 

FI 

4342  544500  LE 

4343  445745  DOE 

4344  630056  S  N 

4345  576400  OT 

4  34  6  45705  1  EX  I 

434  7  6  36477  ST* 


4350 

1000313 

JMP 

0GETFIL 

435  1 

311 0424 

GET  FI  , 

MEMA 

@0  ARG  1 

4352 

2404356 

ACC  M 

ITG 

4353 

311 0425 

MEMA 

00 ARG2 

4354 

2404357 

ACC  M 

SIZE 

4355 

3000416 

JMS 

0RE ADD 

4356 

0 

IT  G, 

0 

4357 

0 

SIZE, 

0 

43  60 

21243  1  3 

MPOM 

GETFIL 

436  1 

1000313 

JMP 

0GETFIL 

/ 

/  SUBROUTINE  PAUSE 
/  PURPOSE  —  VARIABLE  PAUSE 


4362 

0  PAUSE, 

0 

4363 

311 0362 

MEMA 

0PAUSE 

43  64 

2404173 

ACC  M 

COUNT 

4365 

2706173 

MMOMZ 

COUNT 

4366 

365 

JMP 

//-I 

4367 

2124362 

MPOM 

PAUSE 

4370  1000362 

/ 

/  SUBROUTINE  OCT(X) 

JMP 

0PAUSE 

/  PURPOSE  —  PACKS  USER  GIVEN  OCTAL  VALUE  (UP  TO  7  DIGITS)  INTO  LOCATION 


.  THE 

:  VALUE  IS  RIGHT 

JUSTIFIED, ZERO 

FILL  (E.G. 1  =>  0000001) 

4371 

0  OCT, 

0 

4372 

3110371 

MEMA 

0OCT 

4373 

2404304 

ACC  M 

VALUE 

4374 

3164304 

Z  ERM 

0VALUE 

/ZERO  FILL  THE  NUMBER 

4375 

3000423  0CT1  , 

JMS 

0ECHO 

/GET  NEXT  DIGIT 

4376 

46221  5 

A-MZ 

(215 

/IF  CR  WE  ARE  THROUGH 

4377 

2  1  6  2  00  0 

ZERZ 

//  SUBROUTINE  NI CF IL ( NW, FILN AM) 


44  00 

4  10 

JMP 

OCTE 

44  0  1 

470260 

A-MA 

(260 

/CONVERT  FROM  ASCII  TO  OCTAL 

4402 

2404305 

ACCM 

VALUE1 

4403 

311 0304 

MEMA 

LVALUE 

4404 

5043 

LLSH 

3 

4405 

2510305 

A+MA 

VALUE1 

44  0  6 

3404304 

ACCM 

@VALUE 

/STORE  NEW  VALUE 

4407 

375 

JMP 

0CT1 

44  10 

2124371 

OCTE  , 

MPOM 

OCT 

/ 

/ 

44  11 

1000371 

JMP 

0OCT 

EXTERNALS 

44  12 

2  650 

UNP, 

2  650 

44  1  3 

3240 

PKR  , 

3240 

44  14 

2736 

CRLF  , 

2736 

44  15 

2432 

OPENR, 

2432 

44  1  6 

2511 

READD  , 

2511 

44  1  7 

2731 

TYPE, 

2731 

4420 

2420 

OPENW, 

2420 

44  21 

2470 

WRITE , 

2470 

44  22 

2451 

CLOSE , 

2451 

4423 

2257 

ECHO, 

2257 

/ 

DEFINITIONS 

4424 

7770 

0ARG1  , 

777  0 

/ 

44  2  5 

777  1 

0ARG2, 

7771 

/ 

////////////////////////////////////// 

/ 


//  SUBROUTINE  NI CF IL ( NW , FI LN AM) 


AFIL 

4063 

CLOSE 

44  22 

CODE 

4  151 

COUNT 

4  173 

CRLF 

44  1  4 

D  1 

4234 

DIVDE 

421  3 

ECHO 

4423 

ERR 

4047 

FILN AM 

433  1 

GETF1 

4  351 

GETFIL 

4313 

HEXM 

4250 

HEXM  1 

4253 

HEXM2 

4276 

IT 

4031 

ITG 

4  356 

LCNT 

4307 

MNEM 

4  1  50 

MUl.TP 

4  175 

NBYTE 

4  152 

N I C 1 

406  1 

N I CF IL 

4010 

NW 

4032 

0ARG1 

4424 

0ARG2 

4425 

OCT 

4371 

0  CT1 

4  3  75 

OCTE 

44  1  0 

OPENR 

44  1  5 

OPENW 

4420 

PAUSE 

4362 

PKR 

44  1  3 

POINT 

4  174 

PREF 

4306 

READD 

44  1  6 

SEA1 

4  106 

SEA  2 

4  145 

SE  A3 

4  134 

SEA4 

4  144 

SEARCH 

4070 

SENDE 

4303 

SENDF 

4242 

S  1 7  E 

4357 

SMODE 

4311 

TABl.A 

4  153 

TYPE 

44  1  7 

UNP 

44  12 

VALUE 

4304 

VALUK1 

4305 

WCNT 

4310 

WCNTO 

4312 

WRITE 

4421 

7.  El 

4  1  65 

ZERTAB 

4  1  60 

$ 


//  SUBROUTINE  NI  CF  II.  (  NW  ,  FILN  AM) 


1  - 1  1  11 

• 

mtroni* 

m  A 5(1  VJ. 

3  N1C-4B8-CTL  F  oye  i 

00u02 

iOCIQbER  Jb,  l -»u  1 

00003 

00004 

00005 

LIST 

• 

00006 

N0L1S!  MLb 

00007 

oLObAL  con ; ,  con.. .  con: .  con4 ,  cons .  cori6 

00008 

;6Nb  CONTROLLER  SObROoTlNES  ALAHED  FRon  INTEL 

00009 

;  PERIPHERAL  LESION  HANDBOOK,  AO0.  BO.R  2-2ib 

/  v 

000  lo 

4 

00011 

t 

ntnORr  control 

• 

00012 

4 

00013 

uuoO 

CbEG 

EOU  OUH 

00014 

0800 

Obfcb 

too  boon 

00015 

oBFF 

Slf  bu  1 

EDO  oBFlh 

00016 

0900 

tons 

Euo  900H 

00017 

» 

• 

00018 

i 

INITIh.  OmTA 

0o019 

; 

00O20 

0004 

ntbLt 

too  4  ;«ax  no.  Ot  .So  byte  blu.ii  to  be  it  .re.  m  the  L 1 L  D'JMrl. 

00021 

OuuB 

LASTC 

EDO  o  ;Ust  legitimate  tottand  i  uftDrf 

00022 

* 

00023 

4 

0j91  lONfHUi  VHLUta 

• 

00024 

4 

00025 

uuto 

Rh|9l 

LtjU  A*h  ;  d *. 9 1  b  f*  or  l  • 

00026 

4 

00027 

4 

KtrlJ  IV  Uotd'ifi  4Jdtd‘0ut 

00028 

yo20 

LIN 

too  F K T •»  1  ♦  u  ;baU-in  req 

00129 

0020 

OOOl 

EOU  Rhl9)*o  [Ldtd-ool  t  v'.\ 

• 

000  10 

; 

iitflj  1 

; Aeg  11  liite>  ruqt  1  Const ai.l - 

0'i032 

uu.l 

INTI 

tub  FRWl‘1  ;  INI  Reg  1 

■  '•*  .  •' 

00033 

Oho: 

BOH 

tuO  1  jbO  status  bit  I'J. 

00034 

OO'JU 

bin 

toll  ;BI  status  bit  no. 

00035 

Odlu 

ENDn» 

FOO  loH  ; 91  END  IN: EKE  Hast 

""  •' 

00036 

0o8o 

LH 

too  b'.iM  ;91  toMind  pdss  tnrouqt,  int  bit 

00037 

4 

00038 

i 

00039 

• 

htq  la.  Interrupt  2 

00040 

0022 

.nf2 

FLO  9Rly;,2 

00041 

* 

• 

00042 

i 

a 

00043 

Rej  44  nddress  Rode  Constants 

00044 

ou  2  4 

Abhno 

[OU  RRhl»4  ;9l  address  *uJe  register  I 

00045 

ooMo 

TON 

tUU  Burt  ;9|  tali  onlv  *uOe  i  not  usten  C"l 

0004ft 

ou4u 

l  On 

tLO  4urt  ; v 1  listen  only  and  r  ut  ton 

00047 

Oool 

flout  1 

EOU  Ul  ;rtl  toje  :  aao-essinq 

• 

00048 

4 

00049 

; 

eeq  14  ' r  edO ' 

00050 

oo  24 

aURSI 

tOO  E t* T  y  i » 4 

*  * 

00051 

ooo2 

1 A 

tbo  ;  Idi>  dot  i  >t 

00052 

00053 

#  I 

00054 

Rei)  45  td'.te'  Auxilary  Rode  Neqisle' 

*.*  V  •*.*•".* 

-99- 

•  , 
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00055 

oo25 

AU1I10 

tuu 

PblM*5 

;U1  au, iliar»  node  register  1 

0005& 

0024 

CL»KI 

tuu 

241, 

;9l  4  Hh:  clock  input 

0O057 

oo02 

INITIAL 

tuu 

ou 

;9l  reset 

00058 

00o3 

FNHS6 

EQU 

111 

; 9 1  Finish  handshate  .cuoiid 

00059 

OOoF 

vscno 

ESU 

OFH 

;91  Valid  cotiarid  pass-tnruugn 

00060 

0006 

St  0 1 

EQU 

06rt 

; 91  send  EU1 

00061 

0080 

AINA 

EQU 

8uH 

:91am .  reg  *  pattern 

00062 

0002 

HOEND 

EQU 

2 

;9l  hold  oil  nandstuie  ui  end 

00063 

0008 

LOIS 

EQU 

8 

; 9 1  output  Eol  on  Eus  sent 

00064 

00o4 

tutus 

EQU 

4 

;91  end  on  EUb  received 

00U65 

OOAO 

AihB 

tuu 

OAoH 

; Aun •  reg.  8  pattern 

00066 

O001 

CP  TEN 

ESU 

0 1 H 

;Co«tand  pass-torougn  er-iDle 

00067 

l 

00068 

l 

beg  15 

1,  end  > 

00069 

oo25 

CM  86 

EQU 

PR  191*5 

;Cu»*and  Pass-tor O'.qii  -'eg 

000  7o 

1 

00071 

4 

00072 

beg  (6 

Address 

<j - 1  reg.  constants 

00073 

0o26 

AONol 

ESU 

Phi  91 *6 

00074 

0060 

OIUU 

ESU 

6  OH 

lOiSatlle  iajur  taller  i  listener 

00075 

uoEO 

1)10(2 

ESU 

UtoH 

lOisable  dinar  taper  k  listener 

00076 

; 

0v077 

* 

0u078 

* 

beg  |7 

EU5 

Character  begister 

00079 

oo27 

tus#» 

ESU 

PAT91  ♦  ? 

00080 

; 

00081 

♦ 

00082 

; 

8292 

tUblbUL 

VmLJES 

00083 

« 

0do84 

; 

00085 

oolo 

lhlo2 

EQU 

1  vM 

;  dc98  base  Poi t  I 

0Ud86 

; 

00(87 

oolo 

INI  tlH 

tuu 

Pbiv2«o 

;>2  INThP  Has*  bed 

00088 

ooAo 

iNlfl 

tuu 

uAoh 

;  IC1 

0O089 

; 

00090 

00 10 

thHN 

EUU 

PH  1  i.*0 

;'*2  error  task  rtv  ste- 

00091 

; 

0ou92 

00 10 

Ebflbb 

tuu 

Ph 1 

;error  Mag  pseuds  register 

0o09 

ooo2 

Tuul* 

tuU 

"2 

;92  tue  lor  stanoo. 

00094 

ouo4 

: UUI 3 

tuu 

04 

;92  tiiie  out  iuf  Icbi 

00095 

; 

Ooooo 

ou  lo 

1  J«t 

EUU 

Ph|U>i, 

tide  out  pseudo-' eul strr 

00o97 

00  7  f 

TflOuT 

ESU 

nti 

;  Tide  Out  Ovte  tor  Tjbiu 

0o096 

; 

00099 

o  " !  1 

LHD92 

EUu 

tHls2»l 

; e.  Cuddond  negiste' 

O010O 

00 11 

1NISI 

tuU 

Ph  19. •  1 

I'M  Interrupt  itatuS  heu.-.ter 

00101 

oo  o  2 

lb)  b! 

tuu 

2 

l.fiput  buller  Tui.  P .  t 

00102 

.loo  5 

bbU 

tuu 

0)j 

; r Sbu  ti.t  no. 

ooi  o; 

uo2o 

bitUbl 

tuu 

*  "h 

; jhu  Pit 

00104 

oo4o 

tbbBl 

tuu 

;Ebb  bit 

00105 

; 

00106 

oolo 

utibi 

tuu 

92  Control  ter  bt.-ius  .iSmtu-reg 

Oo  1 0  7 

ooo8 

StCS 

tuu 

VdM 

; lent r oi  b»,tch  status 

-100- 


Tektronix 
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f  agt 


00106 

0o4u 

CABT 

too 

4v.'M 

) Contr oiler  active  DU 

00109 

4 

00110 

OolO 

TuST 

£00 

PHT92*v 

;v2  tiifc  out  pseudo-register 

00111 

; 

00112 

uolO 

BubSI 

t  JU 

;92  6P18  Status  u scuOj"! rgi star 

00113 

oooB 

StLBT 

foil 

o8h 

; SvC  status  tit 

00114 

i 

00115 

; 

8292 

UPLf.nT  ION  LflflrmNDb 

00116 

oon 

GIOL 

£0U 

uf  1H 

MO  to  idle 

00117 

oof  2 

hbfl 

£Qu 

Of  2H 

; beset 

00118 

oof  3 

HSU 

£00 

oL3h 

; reset  interrupts 

00119 

oof  6 

otse 

£00 

Of  6H 

; Goto  standby 

00120 

OOf  9 

HbUfil 

LOU 

of  ah 

;  Inter tate  clear 

00121 

OofC 

HAS* 

£0U 

hFL'h 

;  tat  e-control  as>nciiruhuuslv 

00122 

Oof  0 

tL'bf 

£00 

Of  Oh 

;Iale  control  tyncronuusly 

00123 

oof  A 

iCNIft 

£00 

•jf  mH 

;lake  control  irecei ve  Control  I 

00124 

; 

00125 

4 

8292 

UllLllr  LOfltlANDS 

CO  12b 

; 

00127 

OoEl 

Will  ill 

EQU 

UtlH 

jarite  to  1 1 .ne  out  register 

00128 

OOf  4 

8E8f 

EOU 

OLhm 

iiead  error  tug  register 

00129 

oo£6 

8LS I 

EUU 

OtiH 

; r •sad  Controller  Status  hegiatei 

00130 

oof  7 

kb  il 

LuU 

01 

;reaO  6P1B  status  pseudo-register 

00131 

Ooob 

1hC4 

LOU 

OBH 

;  Interrupt  acknanledge 

00132 

4 

0O133 

4 

8292 

INlthhUPT  rUnl 

00134 

4 

00135 

OOOB 

PML 

LOU 

Obb 

00136 

Oool 

TC  IF 

tou 

Ole 

;Iasi  toepiete  interrupt 

0O137 

i 

00138 

» 

08 1  b 

tlLSSAuLb 

iCUIWhNDS) 

00139 

i 

00140 

Oool 

no  a 

LOU 

1 

; fly  device  address  is  1 

00141 

0041 

HTA 

LOU 

HDA»4iiM 

;Nr  talk  address  is  1  '*«“• 

00142 

0o2! 

m.A 

LOU 

!1BA*20H 

; fly  listen  address  is  1  i"“l 

00143 

003f 

UNl 

EQU 

3f  H 

; Universal  unlisten 

00144 

oo5f 

UNf 

LOU 

5nt 

{Universal  jntalf 

00145 

0ol8 

bff 

LOU 

18m 

iberial  poll  enable 

00146 

0019 

SHD 

LOU 

19h 

jSerial  pull  disable 

00147 

0009 

TCI 

LOU 

9 

jtate  cuntrol  ipass  control  > 

00148 

00149 

00150 

Lit 

POhfb 

00151 

00152 

OoBO 

C  I8ll 

LOU 

B"H 

: C Tl  o-bi t  control  n  put 

00153 

ooOO 

ASfiO 

LOU 

<J 

Jadoress  smten  1 

00154 

oool 

ASPl 

EOU 

i 

MdUfeSS  SultCh  2 

00155 

0002 

Hb82 

LOU 

* 

;address  smteh  3 

00156 

Ooo3 

ASH’ 

LOU 

", 

laddress  saitctl  4 

00157 

0004 

Abh4 

£00 

4 

Mddress  switcii  5 

00158 

0oo5 

BUNL 

LOU 

3  ; 

DONE  status  bl t 

00159 

oOOb 

BUS  1 

LOO 

6  I 

BUSt  status  bit 

00160 

0080 

1618b! 

LOU 

8uh 

;b29l  interrupt  status  bit 

Tektromi 

1 80  kin  vj. 

5  NIC 

4bb'llL 

Paje  4 

00161 

1 

00162 

0080 

C1M.0 

EQU 

bOH 

;l  IL  4-Dit  control  Output 

00165 

0001 

DNtNl 

EQU 

l 

;  e ■: m 0 1  f  WA 1 T -ON-DuNt 

00164 

0002 

sftvc 

tuu 

*> 

L 

; set  service  request  Pit 

00165 

0004 

ONE  CL 

EQU 

4 

; DONE  clear  pulse 

00166 

0010 

DHANT 

EQU 

loH 

jenoPle  QAII-uN-luht 

00167 

i 

00168 

i 

NlCP  Pub T  i IN'LIUI  lu  NlCOLdl 

00169 

1 

00170 

uu4o 

NlCP 

EQU 

40H 

00171 

4 

00172 

; 

(USCELLANEIiUS  DEFINITIONS 

001 75 

o8ou 

>  lAkE 

EQU 

CONN 

juuJress  o*  parameter  t.-Die 

00174 

oCoO 

Dm  T  bu 1 

EQU 

OCOOH 

00175 

0002 

DEVICE  EQU 

2 

;the  deuce  nu »btr  oi  tut  Citera 

00176 

0022 

CAHl 

EQU 

DEVilE* 

00177 

0042 

CAM  1 

EQU 

bE V  ICE  *64 

00178 

uo62 

INF 

EQU 

96 

;this  Sett  the  input  iL'»ut  t  ub 

00179 

0065 

ICOONO  EQU 

99 

00180 

0069 

VII 

EQU 

lOj 

! video  input  increment 

00181 

1 

»  »  *  4  «  » 

«  »  »  »  \  1 

4  '  *  * . 

UUlO  J 

«  I  9  1  »  I 

i  i »  » » i 

•  t  *«•«««  1  t 

Irttrom* 

280  A:  1  V.-.  3  NIL 

loo  t IL  r -ge  5 

00 1 85 

UCTGBth  21 , 1981 

00184 

00187 

00188 

;  flhCKl) 

0EE1M  1  iUNS 

00189 

00190 

HAChl) 

NhhtG  ;ht(i,  VALUE,  1LA8EL 1 

00191 

;  hES=reqister  to  ante  to 

00192 

;  VrtLUE  - 

value  to  ante 

00193 

;  IrifcEl-OptlOlidl  ju«p  to 

00194 

111 

a/:' 

00195 

OUT 

(Vi.fi 

00196 

1  H  jt  I 

J 

ooir 

11 

Ml 

0U198 

Jh 

’  J 

00199 

ENOIF 

00200 

enou 

00201 

■  M  •  ii  4  M  l  4  M 

00202 

NAChO 

CTlnIC 

00203 

68  lit: 

b y Tt S  10  NIC  f huN  til 

00204 

•H  i’  IN 

A,  ( C T Kl I > 

002o5 

Bll 

DONE. A 

00204 

Jh 

Nl.CH  V 

0O207 

uull 

00208 

Jh 

N2.LUV 

00209 

ENDN 

AAO 1  f) 

00211 

i  i  i  i  •  4  m  i  m 

Nfu.hU 

N1CC  TL 

00212 

BEADS  BltES  h HUM  Nit  III  ill 

00213 

.I1V  IN 

A,  tCThLl > 

00214 

bll 

bus  t  <fi 

00215 

Jh 

Mill'd 

00216 

INI 

00217 

OUT 

'Cl, A 

00218 

Jh 

NJ.NM'O’ 

00219 

ENOn 

■  9  M  4  •  1  i  t  i  «  i 

00221 

HAChU 

NIlCTlI  ,-hEfiIlS  A  blN6iE  Bf  IE  fhON  NIC  IN10  t-ht.. 

00222 

Nil 'i'  IN 

A,  'ClhLl  i 

00223 

811 

BuSl , A 

00224 

JH 

z.Niri’ 

00225 

IN 

A,  NICE' 

00226 

lu 

o.A 

00227 

OUT 

!  N 1 L  R  ,  i> 

00228 

ENON 

00229 

00230 

•  1 1  i  1  5  i  •  i  •  i  » 

WOO 

SlHb  ;hE0 

0O231 

;  htMreqister  to  br  stored  ct  mu  luiatiun  a-JdiesseO  t*  " 

00232 

ED 

IHLi.V 

00233 

INC 

HI 

00234 

ENON 

00235 

IMIIIMIIM 

vvuj  i  i  ««•<  i  <  i  m  •  i  i  «•«• « ••• « •  ■ « •  ••«»••  i ;;  i  . 

00256  WMU  b I S I h I  ;R£6 

0023/  ;  8fc(j=ititus  reqibter  to  be  stored  at  ne  t  Jjuliuf.  o^jrt 


l  -  hi 


Tektrooi < 

Z8o  Aid  V3.3  NIC 

-4ob-Cll  i-oQfc  ti 

00238 

IN 

»,  fi') 

00239 

ID 

(MU. A 

0O24Q 

INC 

HL 

00241 

tNDN 

MlilHIIIM! 

00243 

RACfcO 

ST1ND  ; lNbC 

00244 

;  INDC-i 

niairect  coM«nd  lor  icctssmo  ttir  register 

00245 

ID 

D.’r 

00246 

CALL 

8D1ND 

00247 

LD 

(HLI.h 

00248 

1NL 

HL 

00249 

LNDH 

00250 

iMinmiin 

-104- 


Itktronm  lb 0  A 

00252 

SH  V3. 

’  NIC  466-lIl 

NuVEflbER  4.  Hbl 

f'siyf  ? 

UU/jo 

Mitt 

t  »  *  i  »  »  •  » 

%  y  «  t  «  1  1  1  M  «  | 

00254 

00255 

I4A1N  CONTROL  KGUl  1NE 

00256 

00257 

FUBFOSE  --  This  is  the  ClL 

excutive  routine  enun  is  sla<e  to  ml 

0025S 

in  that 

it  pertoras  coaaands  issued  by  NIC  ana  returns  to  a 

00259 

edit  state  1 eelts  tor 

input  troa  Nil)  otter  coaaand  ijaplct i ,n. 

00260 

H  a  coaaand  car  not 

te  coapleted  because  ot  a  bus  errors  eavo 

00261 

considered  tatal),  the  executive  returns  to  its  nail  ste'.r 

00262 

an  error  subroutine 

etiich,  along  other  things,  sets  biwC  lu 

00263 

indicate  abnorial  coaaand  termination. 

002&4 

Each  coaaand  is  started  by  NIC  by  transferring  a  2t>  t<tt  .  j'atetcr 

00265 

block  troa  NIC  to  CTL.Ihe  tirst  byte  in  tins  table  is  the  .  ..ea  d 

00266 

nuaber. 

00267 

The  control  routine  has  been  aoditied  such  that  the  tic  e-jj-ess 

00268 

seitches  aay  be  used 

to  cause  a  local  test  prQQrai  to  te  run  aithout 

00269 

NIC  ben 

ij  attached.  Set  subroutine  its!  tor  a  desc  u 1  iui,  ut  the 

00270 

tests  and  hue  they  are  initiated,  it  tyiftv  IS  set  ‘oi  ’.  t’e  f.oraal 

00271 

pr  oqr  mt 

i-  executed, 

00272  GOoO  '/ 

QRb 

CSE6 

00273  0000  21FF0B 

ID 

HL.SU,  BO  1 

00274  OO03  F9 

LD 

SP.Ml 

00275  0uo4  CO/'JOl  - 

Ml  Ij 

LmLL 

INI  1 

00276  0007  FB 

El 

00277  oouB  E0i,6 

1ft 

1 

00278  OuuA  OBbo 

IN 

A.lllRLl. 

0O279  OO0C  Lb4/ 

fill 

AShr  A 

00280  OOOt  CC68u3  > 

CALL 

J.USl 

00281  0011  3EI4 

h  l  T 

ID 

A.  14m  ;set 

paraaeters  tor  Niul  table  traiitrr. 

00282  uul3  32ubu8  > 

ID 

iNDnll ,A 

00283  0016  2lOuu8  > 

LO 

HL,  UbLt 

jbtafting  address  or  the  tai  le 

00284  0019  220D08  > 

LD 

iDhImDDi ,hl 

00285  0O1C  218000  v 

LD 

HL.NmIU 

00286  001F  22140b  > 

LD 

(HE 1ADD) ,HL 

jnoraal  return  troe  Nlll. 

00287  0022  CD8D02  > 

CALL 

Cdltj  jtranster  table 

00288  0o2 5  0613 

BLOCt 

3bH-SCALftf( t *  CSE6 1  ; to  qet  to  start  of  inte"Jt,t  ’ion 

00289  0038  .21106  > 

NiRPI 

1C 

' ! t  NP  t , HL 

»ttie  interrupt  routine  stores  feuoi  er -  ■» i  1 1 1» ^  it.tt 

00290  Oo3B  El 

FOP 

HL 

00291  Oo3l  2.1E08  ■ 

LD 

1  lErtrO.Hi 

jstore  FL 

00292  Oo3f  E0/32oob/ 

LD 

<  I E  PIP « 4 1 .  SP 

00293  0043  212208  • 

LD 

ML.  IEftF*0 

00294 

SIRED 

A 

0O295 

b’REu 

L 

00296 

SIRES 

B 

00297 

SUED 

L 

00298 

SIRES 

0 

00299 

rlblAl 

INI!  ;829l 

’  egi stir  u 

00300 

S’SJAJ 

!Ni2 

00301 

STSTAT 

ADKS1 

00302 

SblAl 

ADh'.M 

00303 

bISIAI 

EObR 

00304 

ststai 

INIS’  ; b.d. 

register's 

Tektronix 


Z80ASHV3.,  NlC-4dd-l.lL 


00305 
00300 
00  307 

00308  0070 
00309  O08O 
00310  0083 
00311  0086 
00312  0089 
00313  008A 
00314  OodC 
00315  0081 
00316  0090 
00317  0093 
00318  0o94 
00319  0097 
00320  oovd 
00321  0o99 
00322  ooVC 
00323  0o9F 
00324  OuAI 
00325  0oA2 
00326  00A3 
Co  127  0oA4 
OOiib  OOrtj 
0032V  uuA6 
Oo33o  0"A7 
00331  ouAd 
00332  OoAb 
Oo533  Oi'At 
Oo334  Oobl 
0i/335  Oob4 
00336  0ob7 
Oo337  oobA 
Oo338  OobO 
00339 
0034u 
00341 
0o341 
0o343 
00344 
00345 
0o346 
0o34’ 

0034b 

0034V  i>oC4 
0o35o  0oL6 
00351  uoC7 
00352  ooCA 
Oo353 
0u354 
0"355 
Oo356 
00357 


C 30000 
21 1 loO  ) 
22l4u8  > 
21A8O0  / 

fb 

£056 

3A000U  / 

41 

3A1608  > 

89 

ICLOOo  > 

79 

M7 

ICCooo  / 
CCCooo  > 


HA1 1 l  LD 
LD 


btkf  ; er 

bCSI  ;lo 

AbbT  ;Du 

CoEG 
HI. DA  IT 
(Ht  I  hOO  1 .  HL 
Hl.SIAHI 


h,  konm 

C.A 

A.'icunm 

c 

A.C 

A 

H.tnhUb 

i. thhOh 
b,o 


; err  or  t i 

•.LOntr oiler  Stitui 
;  busst  dtue> 


jreturn  *00tes2  tur  tuiinfi-l  Ldili 
;  Uil  lunlfiil  Clde  16  to  find  adae^-:  L/t  Cell 


U9 

£9 

L0i4u3  / 
L  1)8201  > 

Ltoooo  • 
LI)  3502  / 
L0bDo2 
COA7i>2  > 
C08Eo2  ■ 
C0ooo9 


11) 

ADO 

ADD 

LD 

hOD 

JF 

61Ak!  (.ALL 


C050i'l  > 

t 34101  ) 


;  EAROH  hOUllNt 

;FuHFu.t  -  Alien  «  'atul  error  occur-:  in  pertc-rii-.g  a  CuMijI  *•. 

;  d  (.all  to  LhbOA  i6  •«at.  EKhuh  vtts  me  Se vL  tut  wTi  i  L  Ti  »i.;  .  atiir 

\  Ml  ^UN 1 T Uh  to  }u*p  tu  Mi  L Kft uh .  It  it  in  turn  biiutud  au-.e  ai 

i  interrupt  a  fid  su&se^uei  t  state  star  out. 

EFHOF  AhKEu  ClKb.oAvC  ;  net  ttie  Snvt  Lit  tuf  dD'iLftfccl  r  ’  ft- 
IN  A.«lNU> 

lO  0.  h 

CALL  CIlNIlI  ; 6rnd  6tdtu6  to  NiC 
JF  htlunN 

I 

;  jmNuhFi  !  d .  i  >  a  1 


-10b- 


•  — « — =- — r 


Tektronu 

20u  ASH  V 3. 

mC-486-ClL 

00358 

LISLISI 

ROUTINE 

00359 

00360 

PURPUS£--serid 

uut  d  list  o 

00361 

ARGunENlS--  r 

eg  a  -  1  -  t 

00362 

0  =>  1 

00363 

00364 

USES  register 

n,b, DE 

00365 

00366  OuCD 

47 

LISLISI 

LL  b,  A 

00367  OOCE 

A7 

AND 

h 

00368  OOCF 

20oF 

JR 

N2.L  111 

00369  uuDI 

3Aul08 

) 

LD 

A, ’ NL !S!  i 

0037U  0004 

A  7 

and 

A 

00371  0uD5 

20o3 

JR 

N2.LI3 

00372  0007 

04 

INC 

b 

00373  0o08 

1813 

JR 

L14 

00374  00DA 

47 

li; 

LD 

b,  A 

00375  OuOB 

1 1  "206 

LD 

DE.LIS1F 

00376  OoDE 

IduJ 

JR 

Lll 

00377  00£0 

UO808 

>  LIU 

LD 

DE, TALPP 

00378  0v£3 

CBIO 

11 

RL 

b 

00379  uoE5 

1A 

L15 

LD 

A, (DEI 

00380  0uE6 

A7 

AND 

H 

00381  OoE7 

2803 

JR 

2 ,  L 1 2 

00382  OOE9 

CD6701 

> 

CALL 

MAUD 

00383  OOEC 

13 

L12 

INC 

DE 

00384  OoED 

1  OF  6 

L14 

DJN2 

LI  j 

00385  OOEF 

C9 

REI 

00386 

it*** 

******  1 

00388 

00389 

BVTbLl  RuollNE 

00390 

00391 

PURPOSE--  sits  up  register 

00392 

registers  set  ere  B, 

00393 

register  C  should  be 

00394 

REIURNS--the 

2-Flag  is  set 

00395 

00396  00F0 

2A0DO8 

>  BFIbLF 

LD 

ML , lOAlADOl 

00397  OOF  3 

3AOBo0 

> 

LD 

a,  INDAll 

00398  OOF  6 

57 

LD 

t.A 

00399  o OF  7 

lEol 

LD 

E,  1 

00400  OOF1* 

A7 

AND 

A 

00401  OOF  A 

20u5 

Jh 

2,  btl 

00402  OOFC 

47 

LD 

B.A 

00403  OOFD 

3Eol 

LD 

A.  1 

00404  OOFF 

1000 

JR 

BF2 

00405  0101 

3AOC08 

>  BY1 

LD 

A.  i NLA! 01 

00406  0104 

57 

LD 

D.h 

00407  0U>5 

0600 

LD 

b." 

00408  0107 

jf 

Br2 

lD 

£,a 

00409  0108 

n 

LD 

A.D 

00410  0109 

A2 

AND 

D 

PaQe 


list 


•H'trnm't 


B 


lektroni 


Z8u  AbN  '3.3  X1C -4ttb  ill 


faqe  lu 


00411  uluA  C9 

00412 

004 1 3 

00414 

00415 

0u41* 

00417 

00418 

00419 

00420 

00421 


KE  T 


4  M  M  1  M  M  •  I  •  •  M  I  <  H  »  I  I  M  »  I  H  •  H  M  1  I  M  M  1  M  •  1  *  M  •  M  1  M  •  !  1 


I  «  •  t  f  f  t  (  •  t  «  4  t  4  •  «  «  «  |  |  «  «  «  •  «  M  »  •  I  9  t  •  <  4  I  •  4  •  •  •  *  4  I  «  •  •  <  •  *  4  M  )  I  1  < 

SU8K0UI lNE  nOlNO 

PURPOSE  --  redd  6291  i r<di r ec t  reqisters 

ARGuntNlS  --  req  0  should  contain  tne  utility  toMand- 

hEVC.KEtffF, R IftH, kCS f , KfaS f, •< FOU T  or  REhN 


0o422  y lob 

0811  hDINO 

IN 

A.  1 1 N  T  S 1 1 

00423  01  oD 

£602 

ANO 

lbfRT 

0o424  01  Of 

2ufA 

Jh 

Ni.ROIND 

00425  0111 

7A 

LO 

A.D 

00426  ul  12 

CD4Eol  > 

CALL 

MAI  1J 

00427  0115 

0810 

IN 

A, (PR192I 

00428  0117 
00429 

C9 

NET 

VV4JV 

»  »  »  » 

» i  i  if 

M  m  M  1 1  i  it  i  n  . . .  ii  « i  it  •  m  i  ii  m  i  m 

•  1  i  «  •  «  i  •  1 

00431 

00432 

SubbOoMNE  nPINO 

00433 

PURPOSE  - 

-  «nte  829/  indirect  reqisters  or  to 

send  Iau 

00434 

AhuUHENlS 

--  req  0  should  contain  Wl uUl . Wt v L  ur 

1  ml  r 

00435 

req  E  should  contdii.  a  value  to  he 

inserteo 

00436 

in  the  indirect  req  ie«cept  ter  lniM 

01)437  ui  lb 

0811  tfhlNO 

IN 

A.UNlbll 

00438  01 1A 

E602 

ANO 

1  of  b  1 

00439  one 

2oFA 

Jft 

N2.MH1ND 

0u440  01  If 

7A 

lO 

H,  1/ 

00441  ul  IF 

0311 

OUT 

ICN092I.A 

0044;  0121 

0811  MRl 

IN 

A,  ■ INI b  1 1 

00443  0123 

£602 

ANO 

Ibfbl 

Ou444  0125 

20fA 

JH 

N/.6H1 

00445  0127 

C85A 

HT 

3,0 

00446  0129 

2009 

JR 

N7.NR2  ;  it  1ALI  this  is  all 

00447  ul 2b 

7b 

lO 

m.E 

00448  012C 

0510 

Oul 

tWtlvi/.A 

00449  Ol2E 

ubll  883 

IN 

A,  ( INIS1 1 

00450  0150 

£602 

AND 

Ibfbl 

00  4  5 1  0132 

2of  A 

JR 

Ni  ,6R3 

00452  0134 

C9  682 

RET 

00453 

00454 

i  «  1  «  i  «  t  ♦ 

0U455 

SUbROUl lNE  LIN 

00456 

PURPOSE  -- 

died  6P1B  input  status 

00457 

AR6UNENIS 

--  req  A  returns  the  1  NT  1  stdtus  P.ts 

00458 

00459  0155 

1600 

2  IN 

LO 

O.f 

00460  0137 

0821  121 

IN 

A,  <  INTI) 

0O461  0139 

82 

OR 

0  icullect  status  hits  here 

00462  01 34 

57 

LO 

D.A 

00463  0136 

L847 

Bit 

bln, A 

Ttktronm 


ZBO  ASM  vi. .  NIl-4«8-CIi 


t  uqc 


li 


00464  01 3D 

2816 

Jh 

Mil 

00465  01 3F 

7A 

ID 

A.D 

00466  0140 

CiCUhl 

C9 

RE1 

00468 

«  4  4  »  »  ‘  *  1  4  *  4  *  4 

f 

00469 

;  FSEUDu-SuBROUTlRt  kET uRh 

00470 

;  Return 

s  subroutines  to  RETADD  and  antes  a  byte  to  NIC 

00471  ij  1 4 1 

241408 

>  RETURN  LD 

HI,  iRETADDl 

00472  ^144 

0680 

IN 

A.(CTRll)  ;  1 1,  teat  eude  =  unreal  return  it  »out. 

00473  014b 

C647 

BIT 

ASru.A 

00474  0148 

La 

BET 

2 

00475  0140 

Cl 

BOP 

bC 

00476  0144 

C05DO1 

)  LhLL 

CTlNICI 

00477  0140 
00478 

00479 

00480 

£9 

JP 

*  HL  l 

i  SUBRuUT INI  NiilTl 

00481 

purpose  - 

i  ssue  6292  On  eel  CQMand 

00482  0141 

0311 

HAITI  OUT 

tCND42i,A 

00483  015u 

Dbo8 

812  IN 

A, iPRTf ) 

00484  ul5i 

Ebol 

ANO 

TCIF 

00485  0154 

2  Of  A 

JP 

N2,8>2 

0048b  0156 

DBuB 

HI!  IN 

A,  iPRTFi 

00487  0158 

1601 

AND 

TCIF 

00468  0154 

28F  A 

JR 

2, Nil 

00489  015C 

C9 

RET 

4  4  4  4  f  i  4  »  4  4  «  4  4 

4  4  «  4  4  1  4  »  4  J  ♦  J  4  •  4  4  1  «  «  1  *  J  #  |  »  «  J  1  J  i  .  1  .  J  «  '  t  '  «  4  4  »  4  4  MM . 

00491 

j  Subroutine  cilnci 

00492 

;  antes 

d  single  Me  Erui  L(L  »u  NIC 

0049J 

;  tRe  byte  <-hould  tie  in  the  0  register 

00494  0150 

DBdo 

CJLNlCl 

IN  A,  a'TBLli 

00495  015F 

CBoF 

pit 

DONE , m 

00496  0161 

2uFA 

JR 

N2, CTlNICI 

00497  0163 

7A 

LD 

A.D 

00498  0164 

D34u 

OUT 

(NILPI.A 

00499  Oloa 
00500 

00501 

C9 

RET 

00502 

SUBROUTINE  HAIIO 

005o3 

;  PURPOSE  - 

output  data  on  the  UF1B 

00504  ula/ 

0320 

hmIio  Out 

IDOuTI ,A 

00505  u 1 69 

Lb.  1 

HAITI  IN 

A, (INTI) 

00506  01 6b 

l'B4f 

BIT 

BON,  A 

00507  ulbD 

28f  A 

JR 

2, HAITI 

0u508  Ml 61 

C4 

Rt! 

Ttktronw 


2804bHV3.3  MIC-4aa-;iL 


Rage  12 


Club  12 
00513 
00514 
00515 


oCTObEA  2/, 1981 


;  initial  i2iton 


routine  - 


0(15  li 

ini  r 

■rreo 

01092, RiET 

00517  ul 74 

0600 

lD 

b.o  ;»dil  tor  after t  to  go  out. etc . 

00518  0176 

1  OF E  INI  To 

DJN2 

IN!  lo 

00519 

888  to 

1NIHR.1NTH  ; set  T L I  interr  jftt 

0052o 

BRRE8 

AulRD,  INITIAL  ;imtialwe  the  a24l 

00521 

INI  1 . 

8RRE0 

ADRol.DIOLl 

00522 

8RR£b 

A0Ro1,D1Ol2 

00523 

BARES 

4DRND, TON 

00524 

INI  1 3 

BRAES 

AOlNb.CLiAT 

00525 

8RREG 

INI  1,0 

00526 

BHAtb 

INI  2.0 

00527 

ttkAEb 

4U1ND, o  jrelease  initial  izatitui 

00528  one 

JEFl 

LD 

4.GIDL 

00529  0 1 9£ 

C04EO1  > 

C4ll 

RAltl 

00530  0141 

i£o8 

lD 

4.L48IC 

00531  0 1 h  3 

321608  / 

LD 

(LluHHi.h  imitiali.e  suae  storage 

00532  0146 

3Eo4 

LD 

A, mbit 

00533  blAb 

32!7ob  / 

ID 

iHAlbLM  ,4 

0o534  014b 

3Eo4 

lO 

A. 4  ;clear  Dls.  ohd  do.ie 

0o535  0140 

034o 

OUT 

iNICRi  ,A 

00536  0141 

D  3aO 

OUT 

ilIklOi  ,4 

0u537  01 b 1 

C9 

RET 

ou538 

00539 

h£lV  KUUllNc  id  IdS  l UR. 1 

0o540 

0o54 1 

K04i08E -Mr ahste' i  Odta  tro*  oRIb  to  Lit  i  if  >u  other  1. 

Ou542 

RmRAM  1  Ebb  - 

00543 

(Bi  pr ltd' .  address-lolter 

0U544 

i9l  sec O"0dr  r  address  -laltei 

00545 

(lot  Ebb  char dLter .  (see  Delu«i 

0o546 

Mil  rio .  ot  Odt a  Oates  to  receive 

Ou547 

llx  i*0.  ut  til  QO  S  (0  rcCrive.  »bee  tirioul 

0u548 

(141  st.rti "(j  address  tur  data  Storage. 

oo549 

0u550 

HtloHlb  -  .1 

ill’  dhd  (III  are  ftutr.  1  ,  Kt  Lv  r  rt  jrr.a  me  i, 

0u551 

Odt  d  if 

M2'  and  Ml).  It  du  rot  get  ibl  at  end  ot 

oo552 

or  *  t 

the  dibub t  Ot  Jala  received  dues  not  latch 

oo553 

an  err 

'  condition  e*  i  j  r.  5 . 

00555  ole. 

3ti4 

-Oil. 

MMII" 

lD 

H, ILNlN 

Oo55e  o 1 b4 

2  D  4  E  u  1 

LiiLL 

l»A[T» 

0o557  01b  ’ 

tOl 

lD 

4,1 

0(558  oib9 

LOlDuo 

CmLL 

L I ji  1  j  1 

u05j9  oleC 

'ob2 

Lb 

8,  AiRAmutNb 

0o560  0U1 

JAo4ob  < 

lD 

A,  1 Lb3L  i 

OU561  Old 

47 

hND 

A 

0oj62  0122 

2804 

JR 

(.ljI.j 

00563  oi C4 

D327 

uul 

MubRi.A 

0o564  0 1 l  6 

0686 

LD 

b,HiR«tHUtNb*tutu2 

-no- 


» 


lektrorm  l Bo  «oN  Nil 

4bb  LlL 

00565 

[0)125  Nnhtb 

AU'ND.b 

005o6 

-FRfb 

ADkNO.lUN 

0056  7 

uhh£b 

All  1 71b,  (■ 

00568  olOj  It ' o 

Lb 

A.blbt 

0056V  0105  CD4E0I  / 

LmU 

NAHl 

00570  0108  of 20 

.D 

C.D1N 

00571  OlDA  COfOoo  , 

ChLl 

brlbLf 

00572  01 00  .006 

Jh 

N2.C0H:' 

00573  01  Of  301  708  > 

ib 

A,  (ItntbLf  1 

00574  ol t 2  5f 

Lb 

t.A 

00575  01k 3  0600 

lu 

b,'.' 

00576  oifj  DD210OOU 

CuM2  7  lD 

I » .  0 

0o577  OltV  CDJ50I  > 

CUn.'b  lAll. 

7. IN 

00578  0 1  EC  EelO 

AND 

[Nbm 

0057V  OIEE  20ub 

Jft 

N2.LUI1.V 

00580  OlfO  0023 

INC 

11 

0058!  OIF 2  E0A2 

INI 

00582  OlM  2oF3 

Jh 

N/.LGN.b 

00583  Olfo  ID 

OfC 

t 

0o584  01F7  2of0 

Jh 

N.'.COHJd 

00585  OlFV  1818 

Jh 

Ciir.12 

00586  Olfb  EDA2 

LOn.V  INI 

00587  OlfO  0023 

INC 

II 

00588  olFF  b0t2lAu8> 

ID 

iLuuiv!i,l> 

0058V  o2o3  3Aob08  > 

LO 

A,  'Nb-!i 

005 Vo  O2uo  47 

LD 

M 

005V1  o/O 7  5AuC08  / 

LC 

A. INLhIBI 

005V 2  02uA  du 

k  ADO 

A.b 

005WD02tiB  hit, 

1  JK 

N2.CON2I2 

005V4  02u0  2AIA08 

LD 

HL ,  (CUUNl/ 

005V5  0210  22OC0B  > 

LD 

(NbAlbi .HL 

005V6  0213  1EFD 

LDNi'12  LO 

A.USr 

005V7  0215  CD4E01  > 

call 

NA1I1 

005V8 

MhhEb 

AUlNO.MlhA 

005VV 

Nhhfb 

AbhUD, ION 

00600 

Nhhfb 

AumD.fNHsi 

0060 1 

Nhhfb 

ttUlND.V 

00602  02.8  ■ 

lD 

A, UNI 

00603  UilA  CDb7ul 

call 

NAi  lu 

0o6o4  u:2b  JtM 

lD 

h , u l Ol 

0U6U5  0.2f  Cj4£ 01  • 

CAlL 

Nrtll) 

006U6  0232  C34iol  / 

Jh 

hfluhN 

0u6j8 

«  1  •  •  4  •  4  1  4  f  4  4 

i  i  i  i  «  i  i  i  j  »  %  4  t 

J06oV 

;  Full 

hjU'lht  (ill 

00610 

U06 1 1 

jAufKjbf  -- 

■dll  UK  Shu 

:  1 1  ill)  odd  •  I  2)  if  e  yu 


jbct  Odtd  counter  to  ') 


I lu.  U f  Jdt  3 


;  *  » 


'll1  dl'U  V  I »'  >  df  If  ‘.I.  Uilp  t  till?  lid  t  (1  LOUflt 


I )u6'.2 

00613 

0061* 

0(7615 

00616 

00417 


Ot.ite  'egutstiiiit  ber»ue.  lint  routine  h*6  been  t  •  1 1  or  ed 
I:  «dt;h  bo»e  O'  the  i deosyncr a~,\ es  of  the  fli»d«dtsu  Ca»tf a 
FAhAfll  Tf  hb 

< b j  prua'r  ddd'ess^de.ue  to  Or  pu'led 

(■vi  iet'jndo'r  ddd' tit 


111- 


Tektronu  280  ASH  V3. 

2  NR 

40b-lIl 

00616 

! 

PEiuPNS  -- 

the  status  byte  is  sent  to 

NlCP  I*  not  test  »ude. 

00619  0235  5fc F  A 

t0n4 

ID 

a, Ilmir 

00620  0237  CD4E0I 

> 

CALI 

Mh  III 

0 u 6 2 1  u.'JA  0611 

LIW42 

IN 

A.'IN'bll  ,.alt 

♦  uf  i tf  n  .  Lt*  f  ryufcbt 

00622  023C  Cb6f 

811 

SPO.A 

00623  023E  CA3A02 

/ 

JP 

2 ,  lOM42 

00624  0241  3E5P 

lO 

A,  UN  1  i  the  tolIOamQ 

Se Quen f e  IS  trot  tlatatotS: 

00625  0243  LD6701 

CAli 

NAI'L)  ;  ■  Instr  ULl  lull  Nai'ual  W'V'r1}  - 1 -4  L  i  a-ih«.sl .  (  i  ■  ) 

00626  0246  JE 18 

CD 

A.bH  ;  Tektf  uni  *  4u5 

“  i 

00627  0240  CD6701 

> 

CALL 

HxllU 

00628  0248  IE  01 

LO 

A.  1 

00629  0248  CDCDoO 

/ 

CALL 

llbLlST 

00630 

nNKEO 

AOWlO.LuN 

00631 

npaid 

AUlflO.O 

Oua32  0258  3EF6 

LD 

A.G1S0 

00633  025A  C04EO1 

> 

CALL 

WAIU 

00634  025D  C035ol 

> 

CALL 

I2IN 

00635  0260  0820 

IN 

A,  (DIN) 

00636  0262  57 

LD 

D,A 

00637  0 2 6 3  U08ci 

IN 

A, iCIRlI) 

00638  0265  C647 

011 

ASP", A 

00639  0267  C450ul 

; 

CALL 

NRCTlNIlI 

00640  u2bA  3EFD 

CUH4I 

LD 

A, ILSt 

00641  o26C  C04Eul 

> 

call 

Nelli 

00642  026f  3100 

LO 

A,  luN 

00643  0271  0324 

OUT 

IADPNOI.A 

00644  0.7.'  A1 

(UP 

A 

00645  02/4  0325 

OUT 

iAuINO) ,A 

00646  0276  3E5f 

LD 

A*UM 

0O647  02)8  C06/OI 

/ 

CALL 

HAITI) 

00648  0276  3E19 

LO 

A.SPO 

00649  0270  C06701 

/ 

CALL 

HA  110 

00650  0280  1620 

LD 

D, lACk  *SPB81  jclear 

the  SRfi  bit  on  the  d:92 

0O651  0202  CD1801 

> 

CALL 

API  NO 

00652  0205  3EF 1 

LD 

A.6I0L 

00653  0287  C04Eol 

) 

L  ALL 

NA1  K 

00654  028A  C34101 
00655 

00656 

00657 

> 

JP 

PE1UPN 

»  4  I  » 

1  TTM'  'I  1  1  |TTT)  1  i  M  I  •  HI  | 

i!  t  1  J  1  I  1  M  M  1  |  i  j  }  J  J  1  i  1  1  M  •  •  1  *  i  M  M 

0O658 

00659 

•  »  1  ' 

•  «  •  •  9  « 

ini . HMMiT»«i"*""i"ii'* 

00661 

NIC1 

PUUIINE  Balias  CONS' 

00662 

0O663 

PUNlDSE  --read  data  Fro*  NIC  to  CIL 

0'j664 

PAPANEltPS 

- 

0U665 

111) 

no.  ut  bytes  or 

06666 

(12) 

no.  ot  256  0 y t e  blocks 

00667 

U4) 

starting  address  lor  data 

storage 

00668 

00669  y.00  01  40 

CUN5 

LO 

C.N1CP 

00670  O.af  CDFOuu 

CALL 

0t  I0LI 

-112- 


Tektroni* 


zeo  ASft  vi. ;  »k'-4a8-:?L 


Uge 


00671  0292  2610 

00672  0294  F3 

00673  CONG  2 

00674  02AI  10 

00675  02A2  20F 1 

00676  o2A4  CJ4101  )  C0N53 

JR 

bl 

nicctl 

DEC 

JR 

JP 

2,CuH53 

E 

N7.CUH52 

RE  T  URN 

00678 

00679 

00680 

00681 

00682 

00683 

00684 

00685 

00686 

NICG  ROUTINE  Ulus  CONoi 

PURPOSE  --  «rite  data  Fro*  CTL  to  NIC 

FARANEIER5  -• 

(11)  no.  of  data  bytes  or 

(12)  no.  at  25e  byte  blocks 

il4l  starting  address  of  the  data 

DU60/ 

Mill 

1  »  »  »  »  »  » 

ifM'MMiiiiiiiMiiM 'HiMMiMiimii'iM'M'utM 

00688  02A7  OE40  C0N6 

LD 

C.N1CP 

00689  02A9  CDF 000  > 

CALL 

BVTbLK 

00690  02AC  280D 

JR 

2.C0N63 

00691  031162 

CTLN/C 

00692  02B8  ID 

DEC 

E 

00693  02B9  2 OF  3 

JR 

N2.CUN62 

00694  0266  C34101  > 

lUNo3 

JF 

REUmN 

•  »  I  f 

♦  Mill* 

t  i * i » t » i i i » ♦ • i » * li i i i » » i » i « • 4 • * • • • i • »  * • «  «  « i  •  •  ♦  1  •  ■  «  • «  • 

00696 

00697 

REKNT 

kUUHNE  (alias  C0H7) 

00698 

00699 

PURPOSE  -  1 

transfer  data  fro*  GP16  to  NIC 

00700 

.PAhANETERS  - 

00701 

idi  pruary  address-talker 

00702 

(9i  secondary  address-talker 

00703 

00704 

This 

routine 

receives  each  datu*  fro*  the  bPIB  and  senes  it  to 

00705 

NIC 

until  E01  is  detected.  Then  SRvC  is  set  before  the  lost 

00706 

datu*  is  sent  to  NIC. 

i  i  i  i 

» t  if  I  * 

i f i 1 4 « i i it i i i i i 1 1 1 1 it i i i i i 1 1  i  i  f  i  i  i  <  i  i  i  i  i  i  i  i  i  i  •  •  i  <  *  *  <  < 

00708  02BE  3EFA  CUN 7 

LD 

A.TCNIR 

00709  0 2C0  CD4£ol  ) 

Cm  lL 

Mill 

00710  02C7  3EoI 

lD 

A,  1 

0071  1  o2C 5  C DC Dou  > 

CALL 

LUlISI 

00712  02C6  3E32 

LD 

A,AlR«*HUtNO 

00713 

MRREb 

Ali.ND.A 

0O714 

»RREG 

ALAND. LUN 

00715 

MRREb 

AUiNfl.o 

00716  02D5  3EF 6 

LD 

A.Gl 56 

00717  02D7  CD4E01  > 

CALL 

MAI  1 1 

00718  02DA  oE2u 

LD 

C.DlN 

00719  02DC  CD35U1  > 

cun/  ( 

CALL 

I21N 

00720  020F  E6lu 

AND 

ENDNt 

00721  02E1  2o0£ 

JR 

N2.CUN72 

00722  02E3  ED50 

IN 

D,  id 

00723 

LlLNIC 

-113- 


T  e*  t  r  on  i 


itfu  Rail  v'3.3  KlCMdEKlL 


1 


uo724  o2EF 

laEb 

JR 

Con  7 1 

0o725 

coil  7  2 

mRrEo 

L IRlu, bRVL 

00726 

ClLNlL 

Oo727  02E F 

AF 

i  Oh 

A 

0u728  03co 

D3bo 

OUT 

iCIhLQl ,A 

00729  0302 

3EE0 

LD 

A, 1  CSV 

00730  03o4 

CD4E01  > 

COLL 

HAITI 

00731 

HhhEG 

hdtflD,  AURA 

00732 

mkkeg 

ADkND.TON 

0u73  3 

hRKEG 

AUH1D.FNHSK 

O0734 

HRREb 

Aland, o 

00735  0317 

3E5F 

LI) 

A, UNI 

00736  03M 

C067OI  > 

CALL 

mAHU 

00737  03 1C 

3EF 1 

LD 

A.uIDl 

00738  03 IE 

CD4E01  > 

CALL 

HAITI 

00739  0321 

C 34101  > 

JP 

ALT  URN 

; c 1  ear  ahvC 


00740 
00741 
00742 
0O743 
0u744 
00745 
00746 
00747 
Oo  74B 
00749 
00750 
00751 
0o’52 
ou7s: 

0o  754 
0u755 
Uu  756 
Oo  757 
0075b 
0o?5‘9 
Jo  760 
00  76 1 
0u76i 
W'bl 
•J"  7  0  4 
Oo  ;65 


imMimmiinmMHiiiiminmmiiini'HiiiiM'iiM'  " 

OCTOBER  27,1981 

m i i i i ii i i |i i » II i i I »  m I i *  h li li  m i )J  i»  i  !  5  m  m  «  i  '  m  m  '  i  i  *  !  »  m  *  «  •  •  :  * » » » * 

SEND  ROUTINE  uiLlAS  LuMI 

sends  data  tfu *  CTL  to  the  0fl0 

ihMJT  'll  no.  oT  listeners 

'21  primary  addresshrst  1 1 stei.er 

(3)  secondar y  address  -  first  listener 

(4)  --second  listener 
l5i  - 

(61  --third  l istener 
1 7 1  -  - 

(U’l  Eds  char alter  nf  Eua-u  tien  EDI  i>  sen t  with  tie  last  byte 
according  to  the  ddtd  count  qi«en  tiv  (Itc  and  '111.  1>  EuS  is 
non-tero  ,the  no.  oT  characters  sent  is  determined  D*  t tie  sequential 
location  ot  the  ECS  character  in  the  data  stream  provicrj  that 
the  amuunt  oT  data  as  determined  by  tlOi  or  111)  is  greater  ur 
or  equal  tu  this  location.  Otherwise  £01  is  suppressed, 
ill)  no.  ot  bytes  to  send  or 

(12)  no.  oT  25b  byt?  clocks  to  send.  i|E  both  till  an;  are  " 
no  data  is  sent. 

(14l  sarting  adGress  ot  th  data  to  be  sent. 

i  *  •  (  I  «  •  m  t  |  4  t  t  I  »  f  «  •  »  i  M  4  *  •  •  *  1  *  i  •  t  •  •  i  J  •  !  I  4  *  •  *  i  !  •  i  i  «  I  «  •  !  5  1  I  •  «  •  i  •  •  •  •  f  1  I  »  '•  \  * 


0o  766  o7.4 

3Ef  A 

Luni  lD 

A,  UNlh 

0u .  6  7  u  3 t 

CC4t01 

call 

HAITI 

Oo  760  0’'|9 

AT 

AUFi 

A 

vv’69  u  ’ .  A 

LD.Ooo 

[All 

UbLl jT 

O'  7  7  :j  o3.D 

Eft 

LD 

A, b ' SB 

uc  ■’ 7  i  03. F 

cDAEOl 

CAcL 

HAITI 

Oc  7  72  0  372 

OE.o 

LD 

L.DOuT 

0'J?73  o' '.4 

CDFvuO  . 

CALL 

bv  T  Bln 

00774  o.!7 

2610 

JR 

2,10111 7 

Tektronix 

00777  oJTC 
00778  0350 
00779  0J3F 
00780  0340 
Oo781  0341 
00782 

0O783  0347 
00764  0349 
0u?85  0346 
00786  034E 
00767  0350 
007BB  0553 
00789  0354 
0079(1  055s 
00791  035B 
00792  0356 
0O793  u350 
00794  uj60 
00795  0362 
00796  0365 
Oo797 
00798 
0U79O 
OOBOo 
00801 
0o802 
00805 
00804 
00605 
00806 
0O807 
Oo*0OB 
00809 
00810 
0081! 

00612 

09813 

0u814 

00815 

00816 

00817  0368 
00813  05oA 
00819  0360 
00820  0570 
00821  0373 
0O822  0376 
00823  0770 
0O624  037A 
00825  0370 
00826  037F 
00827  0381 
0O828  0383 
00829  0386 
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6A 

IF 

U 

2ou8 

JR 

Hi . CUNI B 

7b 

lD 

M,L 

BA 

CP 

0 

• 

2004 

JR 

N2,C0N!fl  ;it  b-o  and  E:l.  tins  is  t*r  .j-t  L»te  1j  be  ^eiit 

NRFitb 

huinO.SLOI 

E0A3 

CUN18  OUT  I 

2805 

JR 

Z . lUN  1 9 

C06901 

> 

LAlL 

#h  i  f  i 

1BE6 

JR 

Fun  15 

CD6901 

>  CONI  9  FALL 

NATH 

ID 

OFF 

L 

2uE  5 

JR 

N2.LUN15 

3EFD 

Cun  17  lD 

A,icsy 

C04EU1 

/ 

lAlL 

Mill 

3E3F 

LD 

H.UNL 

• 

CD6701 

) 

CALL 

MAI  TO 

3EF 1 

LD 

A.oIDL 

CD4Eul 

> 

CALL 

MAIM 

C34101 

>  com io  jp 

RETURN 

m  f  i  • » 1 1  i  ♦  •  i » 

* i * i i • ii 1 1 it  m  h  t  j if i i i }i m  i  i  i  i  h  i  m  *  j  i  n  i  j  m  •  i » i .  1 1  i  n 

• 

MIllMtimiMlljiiiilliitlilini  'iMiHli'innii'  in 

TEST  ROUTINE 

REVISION  -- 

0CI06lR  21,1981 

• 

AUTHOR  - 

bAhnETT.Tb  (PNLI 

PURPOSE  -- 

perfor»s  a  CaMera  test  independently  ot  NTs.  'This  ruutine 

is  initialed  ll  the  ClL  address  Bit  v  is  set  to  U  and  a'  least  one  other 

address 

bit  is  set  tu  1.  (At  present  only  bits  1  and  2  ml!  cause  a  tesl.l 

The  following  tests  are  done: 

A 881-1 

-  ■  initial  we  Cursor  to  left  targin  and  step  to  the  right 

•ar gm  using  the  default  interlace,  then  leaye  the  cursor  at  the 

default  position. 

m  - 

• 

ASR2-1 

:  -  use  the  default  cursor  position  and  interlace  and  gather 
one  line  of  video  (Binary  lode). 

»  i  *  »  i  »  i  4  i  i  » i  i 

•  •  IM  I  f  1  |  M  H  f  1  M  i  i  If  1  I  f  |  H  (  f  |  1  i  |  »  1  |  i  I  1  M  U  1  if  i  i  *  m  i  i  '  i  i 

• 

3Eol 

TEST  l.D 

A,  1  ;  1  listener 

5<.d!u8 

> 

LO 

INU8TT.A 

210U0C 

to 

HL.OATBO! 

22ODO0 

> 

LD 

(DATAODl  ,HL 

214200 

LO 

HL.CANT 

2208O8 

) 

LO 

IIALIP) , HL 

• 

AF 

108 

A 

320A0B 

/ 

LO 

itUSC)  ,A 

0680 

IN 

A, (CTRL  1 1 

’’ 

C64F 

bit 

ASM, A 

2830 

JR 

l,  TEST2 

•  " 

212263 

LO 

HL ,  ( X’uOOfoD  SHL  SJ'ChHL  ;Cd*efd  seeoncdfv  <nuJ  ur  md' >  aUdre^s  fur  iiuuM' 

• 

220206 

> 

LD 

(LlSlPl.HL 

-115- 


Tektronix  ZdO 

Aid  V 3. . 

,  NIL- 

-4db"LTL  Pact  lb 

0u830  0389  1 1  >j400 

lD 

HL,0,|04m  ;  4  (Jala  bytes  tuf  tdCfi  COOf  Oi I'ct • 

00831  U38C  22obo8 

) 

lD 

INDhM.HL 

u0832  038f  21uOui 

lD 

HL.olOon  ;set  First  coorc.  to  0 

Ou833  0392  110004 

lD 

Dt,"4uOH  jcuuiit  to  1024 

00834  039 j  E5 

TESU 

PUSH 

HL 

0o835  0394  05 

POSH 

Dt 

0o836  o 397  CDFFuj 

- 

Call 

bCD  ibC 

0o837  u34A  CD2403 

- 

call 

con. 

ou838  u39D  01 

FOP 

DE 

oo839  039E  El 

POP 

HL 

00840  0J9f  3Eol 

ld 

A,  1 

0o841  U3A1  44 

LO 

b,H 

00842  03A2  80 

HDD 

A, 8 

00843  03A3  27 

OAA 

00844  03A4  b? 

LD 

H,A 

00845  03A5  3EoO 

LO 

H ,  0 

0o644  03A7  45 

LD 

b.L 

00847  03A8  88 

ADC 

A, 8 

00848  03A9  27 

DAA 

00849  03mA  6f 

LD 

L ,  A 

00850  03nb  ID 

DEC 

E 

00851  oiAL  20E7 

JH 

NZ.IEbll 

00852  03AE  15 

DEC 

D 

00853  03AF  2oE4 

JH 

NZ.USll 

00854  u’Bl  Dddo 

IN 

A,  il'IHlIi 

00855  0383  0857 

TEST  2 

BIT 

AbH. ,  A 

00854  o 385  2844 

JH 

2.IE5I3 

00857  o367  212242 

LD 

Hi.ilNP  ShL  B/'CAHL  ; set  input  torud  'u  binary 

00858  038A  220208 

) 

LD 

(LlblPi.HL 

0od59  o3b0  21010O 

ED 

Ht.ooolH  ; send  one  byte 

00840  o3lo  220808 

2 

LD 

(NDAll.HL 

0o86 1  03C3  3Eo2 

LD 

A, 2  jcode  tor  Diner-/  output 

00842  o3C5  32O0oC 

LD 

(DAI80T 1 ,A 

00843  03C8  CD2403 

v 

CALL 

com 

00844  03C8  0 1 0200 

LD 

BC.O002H 

uubo5  03lE  C5 

IESI21 

PObH 

8C 

00864  03Cf  2Iooou 

LD 

Hl.ooooh  ;no  data  is  tent  mtn  cotauno  oil 

0Od47  0232  2.o8ob 

> 

LD 

iNDtili , HL 

00868  0305  3Eo9 

lD 

A.vll 

o08b9  0307  3Io30b 

> 

lD 

IL  IblS) ,A 

008 70  030A  CD2403 

- 

CALL 

CUnt 

Oo871  o30D  Iboo 

LD 

D,0  jpduse  tor  Cetera  Data  pettier 

008/2  03DF  42 

lD 

8.D 

0O673  0JE0  10FE 

ItbiZ’u 

DJNZ 

IE  SI  .'0 

00874  0 3t 2  15 

DEC 

D 

OoB75  03E3  2oFb 

jP 

N2.li.ST  20 

0od74  03t5  AF 

loP 

A 

0o8/7  03l4  32o3o6 

/ 

ID 

itlbiSi ,A 

Oo878  03E9  CD350. 

> 

lAll 

COM 

00879  03EC  21O002 

ld 

HL.U.OuH  ; 2  Plods,  'I  PyteS 

00880  03EF  22080b 

1 

ID 

(NOAH  ,HL 

00881  03F2  CD8201 

> 

call 

C(jN2 

00882  03P  5  11 

PUP 

BC 

Tektroni 


ZBOASI4V3.3  Nit  488-CTl 


Huge  !  i 


00883  03Fb  loD6 

BJNZ 

1E812I 

00884  03F8  i'D 

DEC 

C 

0o885  03F9  2o03 

Jh 

NZ.1E5121 

00886  03FB  C07o0!  > 

1ESI3 

CALL 

IN  1 T  ; r eset  to  detault  value-. 

00887  03F£  C9 

00888 

00889 

00890 

i 

R£1 

'  4  4  4  |  4 

4  1  4  4  4  4 

00891 

4 

SubhOUT lNt  BCOASC 

00892 

4 

00893 

;  gi.en  a  t»u  byte  paded  BLD  nuaber  at  ml  mtt,  loaest  order 

00894 

;  nibbles  in 

H,  BCOASC  places  the  equivalent  ASCII  code  at 

00895 

;  DAIBQT  starting  aith  the  aost  significant  nibble. 

00896 

00897  03FF  DD21000C 

4 

BCDA3C 

to 

IX.OnlbOT 

00898  0403  22vF08  - 

LD 

(OuniLl.HL 

00899  0406  210F08  > 

LD 

HL ,  DUtllL 

009u0  O4o9  0604 

LD 

B.4 

00901  04oB  3E 30 

LD 

A.30H 

00902  04u0  ED6F 

BCD! 

BLD 

00903  04 oF  0D77OO 

LO 

(luoi.A 

00904  0412  0023 

INC 

It 

009o5  0414  05 

DEC 

B 

00906  0415  C8 

BET 

Z 

00907  0416  CB40 

BC02 

bit 

O.b 

00908  0418  20F3 

JH 

NZ.bCDl 

0O909  0418  23 

INC 

ML 

00910  0418  18F0 

00911 

00912 

4 

4  4  4  4  «  4 

JR 

4  4  4  |  »  4 

bCOI 

Tektronix 


ZBu  AbH  V3.3  N1C-4B0-CIL 


Paye  20 


00914 

00915 

00916 

00917 

00918  OfluO 
00919  0800  00 
00920  08ol  00 
00921  0602  00 
00922  08u3  00 
00923  08o4  00 
00924  0805  00 
00925  0806  00 
0o926  08o7  00 
00927  0808  00 
0o928  0809  00 
00929  obOfl  Oo 
00930  0808  00 
00931  080C  00 
00932  OBoO  OOvO 
00933  Oouf  00 
00934  0810  Oo 
00935  0811  00 
00936  oa 12  oo 
0O937  0813  00 
00938 
00939 
0o940 

00941  o6l4  OooO 
0o942  0816  od 
00943  0817  04 
0o944  0818  OOO0 
00945  081A  0000 
00946 
00947 
00948 


I  M  M  i  i  5  ii  if  *  I  i  M  I  i  •  i  i  M  II  H  i  •  i  H  '  M  M  M  *  »  M  *  '  1  H  M  M  I  «  M  M  M  M  *  m  H  M  • 

;  PARAMETER  TABLE 

068  OSEG 

GOAN  BYTE  o  ;co*iand  nueber 

ML  1 S T  8V TE  0  ;no.  of  listeners  tor  a n  be  set  to  1  toner/ 

L IS1P  BYTE  0  |pri»«r*  address, 1st  listener  tor  a  talker) 

L1S1S  BYTE  0  (secondary  address. lirst  listener  (or  1  taller) 

LIS2P  BYTE  0  (--second  listener 

L1S2S  BYTE  0 

L IS 3P  BYTE  0  j— third  listener 

Li  535  BYTE  0 

1ALKP  BYTE  0  (talker  prieary  address 

IALYS  BYTE  0  ;talker  secondary  address 

EQSC  BYTE  0  ; EOS  character  (0  aeans  none  exists) 

MOAT  BYTE  0  ;no.  of  data  bytes  to  be  translerred,  of 

NDATB  BYTE  0  ;no.  ol  256  byte  blocks  to  be  translerred 

DATADD  HOBO  0  ; starting  address  ok  the  data  block  in  CTi 

OUHil  BYTE  0 

DUAIH  BYTE  0 

HESS  BYTE  o  jeessage  print  indicator 

STAY  1  BYTE  0 

ST  AT  2  BYTE  o 

t 

;  OTHER  OhTA 

I 

BE  T ADD  KURD  o 

LLOnn  BYTE  0  ; set  to  the  last  >alid  coeeand  nuiber 

HAtbLk  btTE  4  ; set  to  the  ta«.  no.  ot  256  byte  blocks  < n  data 

SImCEP  HARD  0  iteeporary  storage  tor  stack-pointer 

COUNT  NOR  I)  0  (data  counter  location 


TEMPORARY  STORAGE 


UHroni* 


2bo  ASH  V J .  j  BvNtiol  Utile 


eaue 


.1 


'Mn^s  and  HdCros 


wT*  NIC  - 

Od7A  H 

NIl.U  - 

Oo80  H 

N ICC  T  L 1 

oyT  H 

BUND  -- 

•jF  A 

SlAEb  - 

mi\  n 

jlulAI  - 

004C  H 

NhAEb  -- 

Oo7f  H 

'  a 

ABOUT  - 

dOFS 

AOFiol  -- 

u*  2 1 

ACAAB  - 

oo24 

AOAST  -- 

...  .4 

H2>0  '  ‘  ’ 

H  1. 1  ' 

hbrt  l  — 

ooul 

AjH*,' 

OvUi 

ASA  3  — 

uou3 

ASA4  - 

. . 4 

BLIlHB  ■■ 

""  .l| 

h»i»A  --- 

0000 

A»AB  -  - 

UvAv 

61H  — - 

00 00 

BOH  -  - 

■"! 

bUBBl 

■K.I  l<- 

Bust  --- 

WUo 

.ABt 

0o4u 

caul  --- 

0022 

CANT  --- 

o-42 

[UA! 

oo  2  4 

wt_  H  j  1  ~  * 

oO  1 0 

CMO'J-  -- 

0011 

cone 

o9vu 

CPI  ---- 

U  b' 

OATEN  -- 

mill ! 

;  *6  -- 

002* 

LjEB  --- 

Good 

CTAlI  -- 

ovfao 

CTRL 0  -- 

'.".'O' 

BA  I  BO  1 

, 

atwici  - 

VU02 

BIN  ---- 

ooZu 

WANT  - 

oOlo 

ONECl  -- 

'0"4 

UNEnI  •• 

Odd] 

wG*.  — 

0o05 

Bout  --- 

00  Id 

BSEb  — 

oBOo 

BTBl  1  - 

l".1  O'.1 

B 1 Bl 2  -■ 

llll[  ll 

:ttos  -- 

oo04 

turn  -- 

0010 

E01S  — 

Good 

EOSA  --- 

•"K  ' 

Ml  hl> 

00 1  0 

V:  T  - 

do4o 

EAhH  --- 

00  Id 

FNHSK  -- 

0003 

61  Ql  -- 

OOF  1 

bfSB  - 

oi.lf  o 

il-irO  -- 

ooo  2 

1ACK  -  - 

ooob 

IBFBT  - 

oo02 

INF  ---- 

1 1 1.*  Ci  » 

IN  I  1  I  ML 

I"’i  — 

Obi  1 

ini:  --- 

oo  1 2 

INTBST  - 

0000 

ININ  ■ 

‘'Un' 

INTHA 

1  *7  J  II 

INTSI  -- 

00 1 1 

>  . 

oooj  v 

LASIC  - 

ooOd 

LON  -  - 

■o4" 

ABA  -  -- 

MOO  | 

HI  A - 

oo  21 

NOOEI  -- 

000 1 

MIA  — - 

0041 

MM  -- 

uyu4 

MlP  -  - 

0  '4o 

**F.fVI  -- 

0020 

pan:  -- 

oo  1  o 

PATF  --- 

OOOB 

AB'jI  - 

hCS' 

‘••'to 

AEHF  — 

Got  4 

ASET 

OoF. 

ASTI  -- 

UOf  3 

SEEj  1  — 

<  i«  i 

3hO 

1 1  • .  1  v 

Sf-t  — - 

JO  IB 

Shu  -  - 

O'  ,lJ 

SAubT  -- 

0020 

BAVl  - 

Bl! BUl 

"lit 

StCBT  -- 

ooub 

SilS 

oo*  ib 

TA . 

00o2 

tlabf  - 

1  id  ! 

lilt  - 

vdo| 

TCWTR  -- 

uoFA 

!lb<  — 

ooFB 

TCT  — - 

00o9 

IH8UT 

"V  > 

•i 

0‘iH'i 

TDSE6  -- 

uo  to 

(Dbl  --- 

00 1 0 

I OUT 2  -- 

Ooo2 

TObl 3  - 

ooo4 

LNL  • 

V  > 

tl*  .  - 

Q05F 

vll  --- 

oob9 

VSCHO  - 

OOOF 

NT0U1  -- 

■!■•£! 

■lOUAG 

» l»  1  0 

dif  UeFiulti  Section 

(O0l£> 

BCD!  — 

04o0 

BUI.  --- 

0416 

BCDASC  - 

o3Ff 

Bn  ---- 

"lol 

•■1"  : 

BVTBIK  * 

OofO 

com  — 

0324  G 

com  iv  - 

036j 

COMB  -- 

'.'•3b 

Coni  7  ■ 

“  :j  ■' 

,  d  - 

034/ 

corns*  -- 

0350 

C0H2  ™ 

01B2  G 

COH212  - 

0  2 13 

LUfl.5 

• 1  I  L  0 

01E5 

C0H28  •- 

01E9 

C0H29  - 

01FB 

COM4  --- 

0275  b 

Lufl4;  - 

CC.K2  -- 

02  3A 

cons  --- 

0200  G 

C0H52  - 

0295 

CGH53  - 

o.n4 

ujAn  • 

'••  *4  t 

CP162  -- 

02AE 

C0H63  - 

02bB 

C0H7  — 

02  BE 

conn  -• 

v.BC 

BOA 7;  ■ 

...  r  i 

CC“N  — 

odoo 

COUNT  -- 

001 A 

CTI42VO 

02AE 

CT 18200 

o.E5 

l  1  It.."1 

o.F'i 

r '  .  *  '"‘i 

.  V.  4 

01  so 

DAUB!)  - 

(mob 

DUH1A  -- 

00 10 

DUH1L  -- 

oboi 

Eubi 

I'O"- 

i 

OjLO 

INI  1  — 

Ol/o 

INITO  - 

0176 

INI T 2  - 

oido 

INi  1  ■■ 

"IBL 

l>  A,  T  - 

‘./•'jo 

Liunn  -- 

Obi  6 

III  — - 

Oo£3 

LIU  --- 

*  Hi  f  ■} 

il. 

'.'"tl 

L  .* 

OoOA 

114  ---- 

out  B 

115  — - 

OOE5 

LISlA  -- 

L  1  3 1  b 

'.'d'.1  ■ 

U  ur  -- 

Udo4 

LlS.'B  -- 

j«o5 

LIS3P  - 

O0OB 

L1S3S  - 

■  b"7 

LISlIbI 

ooil* 

NA«8LH  - 

0017 

NESS  — 

0011 

NDAT  — 

06oB 

NDA’B  -- 

»»  L 

nj i • 

•\A 

Ni.'?T  - 

oBol 

ADIND  -- 

oioB 

AETAOB  - 

0014 

RETURN  - 

0141 

STAUF 

o0!b 

J 

joAd 

SIAM  - 

00 1. 

STAT2  - 

0813 

T2 - 

"d  1  L 

121  - 

ol7’ 

U'N  — 

o!35 

TnbLt  -- 

0000 

TAU?  -- 

0008 

TALKS  ■ - 

O0''V 

If  NF  - 

on  if 

1-1  •  - 

d3o8 

TEST!  - 

0395 

1EST2  - 

03b3 

TEST2o  - 

O.t*' 

ItBI.I 

"it 

' . 

o3f  B 

Null  — 

0011 

HAITI  -- 

0169 

NAI T 0  -- 

o|o7 

NAI  lU  -- 

J»>‘ 

014t 

Null/  - 

oodo 

NAI 

ol2l 

■ni 

o! ;« 

MB' 

"i2t 

W  -- 

Olid 

Nil  - 

0156 

NI2  •  — 

01  JO 

-119 


El/I-BO  VI. 3  CuNHUIION  Ut:  It-htC 


1  oouo  it  UtftEC 

2  oooo  ItEVIalOti  --  (JaoDer  .o.l9oi 

3  OoOO  AulttOK  --  turret  i,  lb  tENu 

4  OuOO  EUhKJsE  --  bturt  a  lektruf..-  tte-ddeciial  ilekhenl  tile  a- 

a  [E/ft  CON  lilt.  Iiit  tf  r or  -fret  reception  at  e<cti  rttuffl  is 

3  OOOO  dckiionledqed  by  tilt  tall  until  by  Lit  dliU  4  piutpt  CbdlJCter 

Ouoo  (nub  fek  CUnn  bOould  include  tfit  par  diet  er  f'-yfi. 

8  OOuu  Deception  at  an  abut  t  block  mil  caubt  dii  error  tone  1. 


9 

OoOu 

to 

uuuo  1/ 

11 

004)4) 

i  a 

OOI..J 

6 

uOtio  letrtc: 

it 

4 

0u06 

pfOL  uLft  1  Ui' *i 1  Aa Mi )  i 

12- 

C 

Ouoo 

If epidce 

1  b 

l 

oOob 

cret  b.  '  It  , 

;7 

L 

uOuD 

H  by  "J  . 

>8 

V 

ooub 

dCk  by  v  , 

t< 

c 

ouuD 

flat  by  /  , 

lO 

c 

uuoD 

true  b.  To, 
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